Bonjour Alex, le forum
essaie cela
A+
Case "Lundi"
For i = 3 To 15
If Sheets("feuil1").Range("a2").Offset(0, i) <> "Lundi" Then
MsgBox "colonne " & (i + 1) & " supprimée"
Sheets("feuil1").Range("a2").Offset(0, i).EntireColumn.Delete Shift:=xlToLeft
Exit for
End If