Créer un nombre de feuille selon une variable

Bonjour la communauté,

Je souhaite créer un nombre de copies d'une feuille ("Chiffrage liens") en fonction d'une valeur N demandée à l'utilisateur. Pour l'instant j'ai ce code :

Sub Photocopieuse(Sh As Worksheet, N As Integer)

'

' Photocopieuse Macro

'

Dim I As Integer

For I = 1 To N

Worksheets("Chiffrage liens").Copy After:=Sheets(Sheets.Count)

Next

End Sub

Sub PhotocopieSaisie()

'

' PhotocopieSaisie Macro

'

Dim reponse As String

Do

reponse = InputBox("Nombre de copies", "Multicopie")

If reponse = "" Then Exit Sub

Loop While Not IsNumeric(reponse)

Photocopieuse Worksheets("Chiffrage liens"), CInt(N)

'

End Sub

La demande de saisie du nombre de copie fonctionne par contre les copies ne se font pas.. Si quelqu'un à la solution il est le bienvenu

Bien cordialement,

RémiP

Sub Photocopieuse()
On Error Resume Next
Dim I As Integer
reponse = InputBox("Nombre de copies", "Multicopie")
If Not (IsNumeric(reponse)) Then MsgBox ("File un nombre pas une vache")
For I = 1 To reponse
Worksheets("Chiffrage liens").Copy After:=Sheets(Sheets.Count)
Next
End Sub

Bonjour

normal que cela ne marche pas ...

CInt(N)

N n'est pas définit ....

a remplacer par CInt(reponse)

Fred

Merci Fred,

Exact faute de frappe de ma part, bien vu

RémiP