Pb VBA boucle qui s'arrete.

Bonjour à tous et à toutes,
je me permet de vous écrire car je suis en train de développer un fichier excel pour me permettre de "gérer" une petite entreprise et je bloque sur un problème au niveau de mon VBA.
j'ai crée une base de donnée avec tous mes produits. il y a d'indiqué les prix, la désignation, les références.... et surtout une colonne quantité à renseigner.
de l'autre côté, j'ai créé une seconde feuille au nom de devis_clients où je souhaite transférer tous les produits dont il y a une quantité pour y mettre en forme dans le devis.
J'ai créé un VBA dont voici le code, mais il y a un pb :

Sub transfert()
Dim lig As Long
Dim compt As Long

compt = 3

For lig = 3 To 94

If Range("E" & compt) > 0 Then
Sheets("DEVIS_Clients").Range("B" & compt + 21).Value = Range("A" & compt).Value
Sheets("DEVIS_Clients").Range("A" & compt + 21).Value = Range("E" & compt).Value
Sheets("DEVIS_Clients").Range("E" & compt + 21).Value = Range("D" & compt).Value
Sheets("DEVIS_Clients").Range("C" & compt + 21).Value = Range("B" & compt).Value
compt = compt + 1

End If

Next lig
End Sub



symptôme :
Lorsque je clique sur le bouton pour traiter le tableau, le transfert s'effectue bien sur le devis mais lorsque la quantité n'est pas indiquée, la boucle s'arrête et ce qu'il y a après n'est pas transféré.
Je me casse la tête dessus depuis deux jours et je commence à craquer !! lol .

à savoir que je souhaite que toutes les lignes se suivent sur le devis et qu'il n'y ait pas de saut de ligne.

là , je sèche.... .
Je vous remercie par avance.

chris