Option Explicit
Private Sub Worksheet_Activate()
Dim X As Byte
For X = 1 To Sheets.Count - 1
Sheets(X + 1).Name = Left(Sheets(1).Name, 1) & 3500 + X
Next
End Sub
Sub IncrémenterNoms()
Dim inc As Variant, i As Integer
inc = InputBox("Incrémentation :", "Incrémenter les noms des feuilles")
inc = Int(Val(inc))
If inc <= 0 Then Exit Sub
For i = Sheets.Count To 1 Step -1
Sheets(i).Name = "h" & Mid(Sheets(i).Name, 2, 9 ^ 9) + inc
Next
End Sub