Sub dupliquer_feuilles_Pdg_DSI()
Dim i, nomb As Integer
Dim ongl As String
'demande le nombre de copies souhaitées
nomb = InputBox("Nombre de copies de DSI et Pdg DSI", "Nombre")
'pour éviter de créer un DSI n° déjà existant, on demande le numéro du dernier (le plus grand)
dernier = InputBox("donnez le numéro du dernier DSI")
For i = 1 To nomb
Sheets("DSI" & i).Select
Sheets("DSI" & i).Copy After:=Sheets(i)
ActiveSheet.Name = "DSI" & i + dernier
Sheets("PdG DSI" & i).Select
Sheets("PdG DSI" & i).Copy After:=Sheets(i)
ActiveSheet.Name = "PdG DSI" & i + dernier
If i + CInt(dernier) > 9 Then
dizaine = Int((i + CInt(dernier)) / 10)
unité = (i + CInt(dernier)) Mod 10
Else: dizaine = 0
unité = CInt(dernier) + i
End If
ActiveSheet.Range("X20") = dizaine
ActiveSheet.Range("Y20") = unité
Next i
End Sub