Sub CreerFiche()
Dim bouton As Shape
Set bouton = ActiveSheet.Shapes(Application.Caller)
'MsgBox bouton.AlternativeText 'Contenu du bouton
'MsgBox bouton.TopLeftCell.Address' Cellule qui contient le bouton
NomFeuille = Range(bouton.TopLeftCell.Address).Offset(0, -1) 'cellule à gauche du bouton == Contient le nom de la feuille à créer
'vérifie si la feuille existe déjà
For Each ws In ActiveWorkbook.Sheets
If UCase(ws.Name) = UCase(NomFeuille) Then
MsgBox ("la fiche existe déjà")
Exit Sub
End If
Next ws
Sheets("MODELE").Copy after:=Sheets(Sheets.Count) 'on copie le modèle
ActiveSheet.Name = NomFeuille 'on lui donne le nom
ActiveSheet.Range("H10") = NomFeuille 'et on met le nom en H10 de la nouvelle feuille
End Sub