problème avec For Next

Bonjour le forum,

j'ai un problème avec le code suivant qui devrait m'imprimer le même document situé dans l'onglet 'feuille') en autant d'exemplaires qu'il y a de clients différents (dans la colonne A de l'onglet 'Feuil2').
L'ennui c'est que c'est toujours le même nom qui s'imprime dns la cellule H1 de 'Feuille', et pas celui du client suivant dans la liste. Pourtant j'avais réussi dans un prmeier temps !... J'ai certainement fait une bêtise depuis, mais je ne la vois pas !

Merci à vous de m'indiquer ce qui cloche.

Bon après-midi.

Fifi

Private Sub CommandButton3_Click()

Marep = MsgBox('Avez-vous saisi le nouveau mois dans les paramètres ? OUI = OK, NON = Annuler', 1, 'ATTENTION')
If Marep = vbOK Then

Sheets('Feuil2').Select
Range('A8', Range('A8').End(xlDown)).Select
For Each Cell In Selection
Cell.Select
Sheets('Feuille').Range('H1') = ActiveCell.Value
Sheets('Feuille').Range('A1:I42').PrintOut Copies:=1, collate:=True
Next
Sheets('feuil2').Select
Range('A7').Select
Else
End If
End Sub