Sub renomme()
Dim Sh As Worksheet
Dim Ancien&, Nouveau&
Dim TmpName$
Ancien = InputBox("Entrer l'année précédente", "Saisie 1")
Nouveau = InputBox("Entrer la nouvelle année", "Saisie 2")
For Each Sh In ThisWorkbook.Worksheets
If InStr(1, Sh.Name, Ancien) > 0 Then
TmpName = Replace(Sh.Name, Ancien, Nouveau)
Sh.Name = TmpName
End If
Next Sh
End Sub