Nom feuille=contenu de plusieurs cellule

Bonjour,
Supposons au préalable que vous souhaitez renommer la feuille active de votre classeur en fonction du contenu des cellules A1 et B1.
1- Ouvrez votre classeur
2- taper ALT+F11, une fenêtre Visual Basic Editor s'ouvre
3- Copiez collez ce code :

Sub ChangerNomFeuille()
If Cells(1, 1).Value <> "" And Cells(1, 2).Value <> "" Then
    ActiveSheet.Name = Cells(1, 1).Value & " " & Cells(1, 2).Value
Else
    MsgBox "Vous devez d'abord compléter les cellules A1 et B1"
End If
End Sub

4- Fermez la fenêtre Visual Basic
5- testez : compléter (ou pas) les cellules A1 et B1 puis ALT+F8, choisir "ChangerNomFeuille" et cliquez sur Exécuter

Explication de la syntaxe du code :
début de la procédure et déclaration de son nom (ChangerNomFeuille)

Sub ChangerNomFeuille()

Si la cellule A1 est différente de rien et si la cellule B1 est différente de rien, alors

If Cells(1, 1).Value <> "" And Cells(1, 2).Value <> "" Then

Le nom de la feuille active = valeur de A1 et espace et valeur de B1

ActiveSheet.Name = Cells(1, 1).Value & " " & Cells(1, 2).Value

sinon

Else

Message à l'utilisateur : Vous devez d'abord compléter les cellules A1 et B1

MsgBox "Vous devez d'abord compléter les cellules A1 et B1"

fin du test initié par le "If" du début

End If

fin de la procédure

End Sub