Sub creer(ByVal rng As Range)
Dim nom$
nom = rng.Offset(0, -2)
If FeuilleExiste(nom) Then
MsgBox "Cette feuille existe déjà!", vbCritical
'Retour sur Synthèse
Feuil1.Activate
Exit Sub
Else
'Dupliquer et Renommer
Sheets("FeuilleType").Copy Before:=Sheets(Sheets.Count)
ActiveSheet.Name = rng.Offset(0, -2)
End If
End Sub