Sub test()
'on verifie tous les noms de feuille
For n = 1 To Sheets.Count
' Si une feuille a deja le nom qui est dans la cellule A2
'de la feuille1
If Sheets(n).Name = Sheets("Feuil1").Range("A2") Then
'on la selectionne
Sheets(n).Select
' et on sort de la macro
Exit Sub
End If
Next n
'si on n'est pas sorti apres avoir controlé toutes le feuilles
'on crée une nouvelle feuille que l'on nomme dans la foulée
Sheets.Add.Name = Range("A2")
End Sub