Excel 2010 : création d'une feuille automatique en fonction

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim wrsh As Worksheet
  Dim Nsheet, NewSheet
  
  'Sortie si plusieurs cellule selectionnees
  If Target.Count > 1 Then Exit Sub
  'Cellule avec la date a adapter
  'Mise en forme nom onglet
  Nsheet = Format([A1], "ddmmyyyy")
  'Recherche si deja existant
  For Each wrsh In Worksheets
    If wrsh.Name = Nsheet Then
      'Existe-->sortie
      Exit Sub
    End If
  Next wrsh
  'Creation Onglet et nommage
  Set NewSheet = Worksheets.Add
  NewSheet.Name = Nsheet

End Sub