Masquer / Créer les feuilles automatiquement

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