Gérération de feuilles à partir d'une valeur saisie

Bonjour,

Après de multiples recherches, je bloque.

Je souhaite générer la feuille 2 autant de fois que la valeur que je saisis dans une case de la feuille 1.

J'ai trouvé ça mais ça ne fonctionne pas :

Sub Photocopieuse(sh As Worksheet, N As Integer)

Dim I As Integer

For I = 1 To N

Worksheets("Bâtiment 1").Copy After:=Worksheets("Page de garde")

Photocopieuse Worksheets("Page de garde"), N

Next

End Sub

Pourriez-vous m'aider ?

Merci d'avance.

Salut,

exemple :

Sub copyonglet()
Dim I As Integer
n = 10  'on va copier dix fois...
For I = 1 To n
    Worksheets("BATIMENT").Copy After:=Worksheets("Page de garde")
Next
End Sub

Pas de paramètre pour un sub...sinon délcare une fonction.

Sub Photocopieuse(sh As Worksheet, N As Integer) --> function Photocopieuse(sh As Worksheet, N As Integer)

En plus je n'ai pas compris pourquoi tu rappelais ta fonction dans la fonction ? (fonction récursive mais pourquoi faire ?)

Damien

Merci beaucoup. Je reprends tout juste sur VBA et je n'étais pas une flèche