Sub Macro1()
Dim o As Worksheet 'déclare la variable o (Onglet
Dim t As String 'déclare la variable t (Texte)
For Each o In Sheets 'boucle sue tous les onglets du classeur
On Error Resume Next 'gestion des erreur (si une erreur est générée, va à l'étiquette "suite")
t = Split(o.Name, " ", -1)(1) 'définit le texte t qui correspont au texte après le premier espace (si le nom de l'onglet ne contient pas d'espace cela génère une erreur)
If Err <> 0 Then Err.Clear: GoTo suite 'su une rrreur est générée, supprime l'erreur et va à l'étiquette "suite"
Select Case t 'agit en fonction de t
Case "PARIS" 'cas "PARIS"
o.Name = Replace(o.Name, "PARIS", "BREST") 'remplace "PARIS" par "BREST"
Case "NOISY" 'cas "NOISY"
o.Name = Replace(o.Name, "NOISY", "RENNES") 'remplae "Noisy" par "RENNES"
End Select 'fin de l'action en fonction de...
suite: 'étiquette
Next o 'prochain onglet de la boucle
End Sub