Créer un fichier xls des que la modailté =rdv

Bonjour,

J'ai un petit problème en VBA. En fait,je dois créer un fiche de rendez vous dès que j'ai un rendez vous client. Mon programme fonctionne mais ne me créer qu'une seule feuille et je ne comprends pas pk!!!Si quelqu'un pouvait trouvé l'erreur ça m'aiderais.

Voila mon code merci d'avance!!

For i = 2 To 70
If UCase(Cells(i, 47).Value) = "RDV" Then
Alors je copie dans des variables l'information que je dois recopier dans ma fiche de rendez vous
workbooks.add
Je recopie alors l'information puis la mets en forme (pour la mise en forme j'ai utilisé l'enregistreur de macros)

end if
next i

Je ne comprends alors pas pourquoi il ne me génère qu'une feuille

Merci beaucoup