Salut douk
Adapte cette macro a ton application
Sub Effacer_colonne()
Application.ScreenUpdating = False
Dim A As Byte, B As Integer
Dim C As Byte, D As Integer
A = CStr(Month(Now()))
B = CStr(Year(Now()))
For i = 3 To 26
C = CStr(Month(Cells(4, i).Value))
D = CStr(Year(Cells(4, i).Value))
If (C < A + 1 And D < B) Or (C > A And D >= B) Then
Cells(4, i).EntireColumn.Hidden = True
End If
Next i
Application.ScreenUpdating = True
End Sub
Mytå