macro

bonjour à tous,
voilà bien longtemps que je ne vous ai ennuyé avec mes questions.

j'ai fait une macro qui permet l'archivage dans une feuille "suivi mutuelles" de données saisies sur une ligne dans la feuille "mutuelles"
mon souci est que je peux avoir au maxi 25 lignes à copier.
comment puis-je faire pour faire tourner la macro sur chacune des lignes complétées, sachant que si une donnée figure à minima dans la 1ere colonne, il faut copier la ligne.
suis-je clair ?

merci de vos conseils qui j'imagine sont toujours aussi performants
cordialement.

Sub Archivage()

ici = ActiveSheet.Name: Application.ScreenUpdating = False
Sheets("Suivi Mutuelles").Select
With Sheets("Suivi Mutuelles").UsedRange
i = .Row + .Rows.Count
End With

Sheets("Suivi Mutuelles").Cells(i, 1) = Sheets("Mutuelles").Cells(6, 1).Value
Sheets("Suivi Mutuelles").Cells(i, 2) = Sheets("Mutuelles").Cells(6, 2).Value
Sheets("Suivi Mutuelles").Cells(i, 3) = Sheets("Mutuelles").Cells(6, 3).Value
Sheets("Suivi Mutuelles").Cells(i, 4) = Sheets("Mutuelles").Cells(6, 4).Value
Sheets("Suivi Mutuelles").Cells(i, 5) = Sheets("Mutuelles").Cells(6, 5).Value
Sheets("Suivi Mutuelles").Cells(i, 6) = Sheets("Mutuelles").Cells(6, 6).Value
Sheets("Suivi Mutuelles").Cells(i, 7) = Sheets("Mutuelles").Cells(6, 7).Value
Sheets("Suivi Mutuelles").Cells(i, 8) = Sheets("Mutuelles").Cells(6, 8).Value
Sheets("Suivi Mutuelles").Cells(i, 9) = Sheets("Mutuelles").Cells(6, 9).Value
Sheets("Suivi Mutuelles").Cells(i, 10) = Sheets("Mutuelles").Cells(6, 6).Value
Sheets(ici).Select: Application.ScreenUpdating = True

End Sub