Sub Masquer_Jour()
Dim Num_Col As Long
Application.ScreenUpdating = False
For Num_Col = 32 To 34 ' Boucle sur les cellules des jours 29, 30 et 31
If Month(Cells(6, Num_Col)) <> Month(Cells(6, "D")) Then
Columns(Num_Col).Hidden = True
Else
Columns(Num_Col).Hidden = False
End If
Next
End Sub