Changement de nom de feuille par macro

Bonjour tout le monde,

Je cherche à changer avec une macro le nom des feuilles d’un fichier en fonction du contenu de la cellule A1.

Je suppose que j’ai des feuilles Process , Feuil1, Feuil 2, …

Si la cellule A1 de la feuil1 contient process, il ne doit rien se passer car il existe dejà un fichier portant ce nom

Si la cellule A1 de Feuil 1 contient un nom qui n’est porté par aucune autre feuille, alors je change Feuil 1 en contenu de A1.

J’ai fait une fonction qui vérifie s’il existe une feuille portant le nom et un programme qui change les noms mais j’arrive pas à faire le si.

Pouvez-vous m'aider s'il vous plait?

Cordialement

Bonjour,

Le code suivant à essayer :

Option Explicit
Sub renommerFeuilles()
    Dim s As Worksheet
    For Each s In Worksheets
        If s.Name <> "Process" And s.Range("A1") <> "" Then
            On Error Resume Next
            s.Name = s.Range("A1")
        End If
    Next s
End Sub

C'est parfait,

Merci beaucoup