Bonjour,
Merci de votre réponse.
Il ne disparaît jamais à partir du moment où il apparaît...
Voilà le code rattachée à cette feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B4")) Is Nothing Then
moisdelannee
End If
End Sub
Sub moisdelannee()
mois = Sheets("feuil1").Cells(8, 43)
Set rrange = Range(Columns(41), Columns(76))
rrange.Select
Selection.EntireColumn.Hidden = True
For k = 1 To 12
If mois = k Then
Columns(38 + k * 3).Select
Selection.EntireColumn.Hidden = False
Columns(39 + k * 3).Select
Selection.EntireColumn.Hidden = False
Columns(40 + k * 3).Select
Selection.EntireColumn.Hidden = False
End If
Next
Sheets("pointage lg").Cells(4, 2).Select
End Sub