Sub Essai()
NomFeuille = Range("A1") ' Evidemment à modifier, doit donner la cellule contenant le nom de la feuille désirée.
For Each Feuille In Worksheets ' On parcourt toutes les feuilles
If Feuille.Name = NomFeuille Then Exit Sub ' On sort puisqu'une feuille porte déjà ce nom
Next Feuille
' Si on arrive ici c'est qu'aucune feuille ne porte ce nom, donc on continue
' Suite du code
' ....
End Sub