Bonjour Tortank, bonjour le forum,
Essaie cette macro pour chaque fichier :
Sub Macro1()
Dim O As Worksheet 'déclare la variable O (Onglet)
For Each O In Worksheets 'boucle sur tous les onglets O
'Si le nom de l'onglet contient "2020", remplace "2020" par "2021"
If InStr(1, O.Name, "2020", vbTextCompare) <> 0 Then O.Name = Replace(O.Name, "2020", "2021", 1)
Next O 'prochain onglet de la boucle
End Sub
[Édition]
Bonjour Pijaku, nos posts se sont croisés...