Encore une question

Désolé si je pose bocou de questions recement ....

j'ai ce code :

Sub Copier2()

Dim x As Integer

x = InputBox("Saisir le nomber de parrains a ajouter")

For numtimes = 1 To x

'Loop by using x as the index number to make x number copies.

'Replace "Sheet1" with the name of the sheet to be copied.

ActiveWorkbook.Sheets("Parrain1").Copy _

After:=ActiveWorkbook.Sheets("Parrain1")

End Sub

ce que je voudrai, c'est que les nouvelles feuilles soient collées a la fin , ou en dernier, est ce que c'est possbile ?

Salut le forum

Essaye Sheets("Feuil1").Copy After:=Sheets(Sheets.Count)

Mytå