Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C33:I33")) Is Nothing Then
For Each cel In Range("C33:I33")
nom = Format(Day(cel.Value), "00") & "-" & Format(Month(cel.Value), "00")
For Each sh In Sheets
If sh.Name <> ActiveSheet.Name Then
If sh.Name = nom Then
present = True
Exit For
End If
End If
Next
If present Then
Sheets(nom).Visible = True
Else
Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = nom 'ICI
End If
present = False
Next
For Each sh In Sheets
For Each cel In Range("C33:I33")
nom = Format(Day(cel.Value), "00") & "-" & Format(Month(cel.Value), "00")
If sh.Name = nom Then
dans = True
Exit For
End If
Next
If dans = False And sh.Name <> ActiveSheet.Name Then sh.Visible = False: Sheets("Dates").Visible = True 'ET ICI
dans = False
Next
End If
End Sub