Sub Test()
Dim F As Integer, C As Integer
For F = 1 To Sheets.Count
    ActiveSheet.Select
    For C = 15 To 2 Step -1
        ActiveSheet.Columns(C).Select
        Selection.End(xlDown).Select
        derniereligne = ActiveCell.Row
        If ActiveSheet.Columns(C).Hidden = True Then
            ActiveSheet.Columns(C).Delete
        End If
    Next C
Next F
End Sub

Sub SaveXL()

Dim Nom2 As String
Dim Jour2 As String
Dim FPath2 As String
Jour2 = Format(Now(), "yyyymmdd - hhmm'")
Nom2 = Jour2 & " Pricelist"
FPath2 = Sheets("PARAM").Range("B33").Value
On Error GoTo fin4
fichier = Application.GetSaveAsFilename(FPath2 & Nom2, "Fichiers Excel (*.xls), *.xls")
ActiveWorkbook.SaveCopyAs fichier
Exit Sub
fin4:MsgBox "La création de l'excel a échoué"
End Sub