Private Sub CommandButton1_Click()
Dim LePas&, derlig&, dercol&, i&, j&, afficher As Boolean
Application.ScreenUpdating = False
LePas = Val(TextBox1)
If LePas <= 0 Then MsgBox "Pas Incorrect": Exit Sub
With Sheets("Feuil1")
.Columns.Hidden = False
If .FilterMode Then .ShowAllData
derlig = .Cells(.Rows.Count, "a").End(xlUp).Row
dercol = .Cells(5, .Columns.Count).End(xlToLeft).Column
For j = 4 To dercol
afficher = ((j - 4) Mod LePas) = 0
For i = 6 To derlig
If .Cells(i, j).MergeCells Then afficher = True: Exit For
Next i
.Cells(1, j).EntireColumn.Hidden = Not afficher
Next j
Unload UserForm1
End With
End Sub