Bonjour Pierrejean,
C'est exactement ça merci beaucoup, j'avais trouvé une solution de mon côté avec ceci :
Sub test()
For Col = 1 To 1000
If Cells(11, Col) = "S" Then Columns(Col).Hidden = True
If Cells(11, Col) = "D" Then Columns(Col).Hidden = True
Next
End Sub
Et j'essayais de voir...