Sub dupliquer_feuilles_Pdg_DSI()
Dim i, nomb, dernier As Integer
Dim ongl As String
nomb = InputBox("Nombre de copie Pdg DSI1", "Nombre")
dernier = 1
For Each ws In Worksheets()
If ws.Name Like "DSI*" Then
ici = InStr(ws.Name, "°")
If CInt(Right(ws.Name, Len(ws.Name) - ici)) > dernier Then dernier = CInt(Right(ws.Name, Len(ws.Name) - ici))
End If
Next ws
ongl = "DSI n°"
'dernier = InputBox("donnez le numéro du dernier DSI")
'ongl = InputBox("PdG DSI1", "PdG DSI")
For i = 1 To nomb
Sheets(ongl & i).Select
Sheets(ongl & i).Copy After:=Sheets(i + 1)
ActiveSheet.Name = ongl & i + dernier
Next i
End Sub