Sub NEWblmobile()
Dim n, k, tx, onglet, deb, init, nb
'retifié cette ligne
init = "REI" ' les lettre du dernier onglet sans le chiffre
nb = 4 'nombre d'onglet ? copier
ActiveWorkbook.Unprotect ""
For k = Sheets.Count To 1 Step -1
If Left(Sheets(k).Name, 3) = init Then 'mis 3 au lieu de 2
deb = k
n = Val(Replace(Sheets(k).Name, init, ""))
tx = Replace(Sheets(k).Name, n, n + 1)
Exit For
End If
Next
For k = deb - nb + 1 To deb
Sheets(k).Copy after:=Sheets(Sheets.Count)
tx = Replace(Sheets(k).Name, n, n + 1)
ActiveSheet.Name = tx
'If Left(tx, 3) <> "SWB" Then
ActiveSheet.Unprotect
Next
On Error Resume Next
For k = Sheets.Count - 3 To Sheets.Count 'deb - nb + 1 To deb
Sheets(k).Select
'ici c'est pour modifier les formules
For Each c In ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas)
c.Formula = Replace(c.Formula, "SWB" & n, "SWB" & n + 1)
c.Formula = Replace(c.Formula, "PCK" & n, "PCK" & n + 1)
Next
'End If
Next
ActiveWorkbook.Protect ""
End Sub