Dim cl As Range, cbl, cbl2, cbl3, cblaa, cbla, cbla1, stock, cel, stockval As Range, val As Range, valtemp As Range
Set stockval = Feuil24.Columns(3).SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeConstants).Find(cel).Offset(, 6) 'stockval = quantité en feuille stock
Set val = cel.Offset(, 2) 'quantité en BL
If cel.Offset(, -2) = "" And cel <> "" Then
Feuil34.Range("C" & Lg) = cel
If val > stockval Then
Feuil34.Range("E" & Lg) = val - stockval
Set df = Feuil34.Range("E" & Lg)
Set valtemp = val - df