Refus de s'arreter sur la ligne

Bonjour,

Quelqu'un peut-il me dire où j'ai commis une erreur ?

Il ne veut pas s'arrêter sur la ligne (celle-ci existe bien)

'Recherche si devis déjà facturé
With Worksheets("Bfacture")
lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
For lRow = lastRow To 1 Step -1
If .Cells(lRow, 0) = NumDevis Then .Select Il demande débogage erreur 1004
Anc = 1
'une facturation éxiste déjà
If f = 1 And a1 = 1 And a2 = 1 Or f = 1 And a1 = 1 And a2 = 0 Or f1 = 1 And a1 = 0 And a2 = 0 Then
'Facture
ActiveCell.Offset(0, 3).Value = NumFact
ActiveCell.Offset(0, 4).Value = dateFact
ActiveCell.Offset(0, 5).Value = Facture
Else
If f = 0 And a1 = 1 And a2 = 0 Then
' Acompte 1
ActiveCell.Offset(0, 6).Value = numAcpte1
ActiveCell.Offset(0, 7).Value = dateAcpte1
ActiveCell.Offset(0, 8).Value = Acpte1
Else
If f = 0 And a1 = 0 And a2 = 1 Then
'Acompte 2
ActiveCell.Offset(0, 9).Value = numAcpte2
ActiveCell.Offset(0, 10).Value = dateAcpte2
ActiveCell.Offset(0, 11).Value = Acpte2
Else
MsgBox "Erreur dans les choix de facturation, Veuillez recommencer", vbOKOnly + vbInformation, "CONFIRMATION"
End If
End If
End If
'End If
Next lRow
End With

Merci

bonjour,

 .Cells(lRow, 0)

0 n'est pas un numéro de colonne valide, je suppose que tes numéros de devis sont dans la première colonne,

mets alors ceci

 .Cells(lRow, 1)

Il va bien dans le cas NumDevis trouvé mais ajoute une ligne et écris, au lieu de rester sur la ligne devis trouvé et completer.

j'ai alléger le classeur.

Je le joins. Tout le travail jusqu'au devis est OK

Mon problème survient dans la création d'une facturation suivant le cas Facture, Acpte1, acpte2, Solde acpt1, solde acpt2.

Je beug, 4 jours et j'ai l'impression de ne pas avancer