Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Ws As Worksheet
If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
If Selection = "" Then Exit Sub
'vérification de l'existence ou non de la feuille
For Each Ws In Worksheets
If Ws.Name = Target Then MsgBox "Ce nom de feuille existe déjà !": Exit Sub
Next Ws
'la feuille n'existe donc pas-->on copie le modèle
Sheets("modèle").Copy Before:=Worksheets(Worksheets.Count)
'on lui donne le nom de la cellule sélectionnée
Sheets("modèle (2)").Name = Target
End If
End Sub