Sub Masquer_Jour()
Dim Num_Col As Long
For Num_Col = 30 To 32
If Month(Cells(6, Num_Col)) <> Cells(1, 1) Then ' ici cells(1,1) signifie cellule( A , 1 ) or tu l'as mis en A2
Columns(Num_Col).Hidden = True
Else
Columns(Num_Col).Hidden = False
End If
Next
Range(« B6:AF13 »).ClearContents ' ici « et » n'existe plus, on place des guillemets " (touche 3) et mets B7 au
lieu de b6
End Sub