With WsDC
plg = .Range("c" & Rows.Count).End(xlDown).Row
Set plage = plg.Find(CmbCommandes, xlValues, xlWhole)
If Not cel Is Nothing Then
For Each cel In plage
Set c = cel.Offset(0, 1).Find(CmbArticles, xlValues, xlWhole)
If c.Offset(0, 1).Value = CmbArticles.Value Then Exit For
Ligne = c.Offset(0, 1).Row
Next cel
Ligne = Ligne + 1
End If
If MsgBox("Voulez-vous modifier cet enregistrement ?", vbYesNo, _
"LES MILLES MERVEILLES") <> vbYes Then Exit Sub
.Cells(Ligne, 5) = Format(TxtQte, "0")
.Cells(Ligne, 6) = Format(TxtPrix, "0.00")
.Cells(Ligne, 7) = Format(Pourcent, "0%")
.Cells(Ligne, 8) = Format(TxtDif, "0.00")
.Cells(Ligne, 9) = Format(TxtMontant, "0.00")
End With