Sub Rapproche_Colonnes()
'
For I = 1 To Range("IV1").End(xlToLeft).Column
If Cells(1, I).Interior.ColorIndex <> 6 Then
Columns(I).Select
Selection.EntireColumn.Hidden = True
End If
Next I
'
End Sub
Sub Afficher_Colonne()
'
Columns("A:S").Select
Selection.EntireColumn.Hidden = False
'
End Sub