Sub Filtrer_Défiltrer_V2()
Dim i&, j&, colonnes
Application.ScreenUpdating = False
colonnes = Split(InputBox("Choix des colonnes?", "Test", "1,10,12"), ",")
For i = 1 To Cells(1, Columns.Count).End(xlToLeft).Column
For j = LBound(colonnes) To UBound(colonnes)
Cells(1, i).EntireColumn.Hidden = Cells(1, i) <> colonnes(j) * 1 = Not Cells(1, i).EntireColumn.Hidden
Next j
Next i
End Sub