Boucle qui ne s'arrête pas quand 1ère ligne vide

Bonsoir à tous,

Je fais une macro pour automatiser des vérifications de factures. J'ai un problème car ma boucle (cf. code ci-dessous) ne s'arrête pas quand il rencontre la 1ère ligne vide.

Worksheets("AFFRETEMENT").Activate
    Range("N2").Select
    Fin = Range("N2").End(xlDown).Row

For N = 2 To Fin

    Cells(N, 14).Value = Round(Cells(N, 9).Value / 0.4)     'calcul correspondnce palettes => mètre de plancher

    If IsEmpty(Cells(N, 13)) = False Then                   'Je mets 30€ s'il y a une valeur dans la colonne HAYON AFFRET
    Cells(N, 16).Value = 30
    Else: Cells(N, 16).Value = 0
    End If

Next N

Auriez-vous une idée?

Bonsoir tu peux ajouter un test pour sortir de ta boucle quand tu rencontres une (ou plusieurs) cellule(s) vide(s)

Worksheets("AFFRETEMENT").Activate
    Range("N2").Select
    Fin = Range("N2").End(xlDown).Row

For N = 2 To Fin
' on sort de la boucle si pour la ligne N , la cellule A est vide à adapter éventuellement

    if cells(N,"A")=""  then exit for

    Cells(N, 14).Value = Round(Cells(N, 9).Value / 0.4)     'calcul correspondnce palettes => mètre de plancher

    If IsEmpty(Cells(N, 13)) = False Then                   'Je mets 30€ s'il y a une valeur dans la colonne HAYON AFFRET
   Cells(N, 16).Value = 30
    Else: Cells(N, 16).Value = 0
    End If

Next N

Bonsoir

Pour augmenter tes chances d'avoir une réponse

Je te remercie, ça fonctionne. Effectivement j'aurai dû y penser.

Bonne fin de soirée.