Sub MAJ()
Dim tablo, dat, num, i As Variant, v As Variant
With Sheets("LIVRAISON")
tablo = .[A1].CurrentRegion
dat = .[H3]
num = .[H6]
End With
With Sheets("STOCK").[A1].CurrentRegion
For i = 2 To .Rows.Count
v = Application.VLookup(.Cells(i, 1), tablo, 4, 0)
If IsNumeric(v) Then .Cells(i, 4) = v
Next
End With
With Sheets("COMMANDES")
i = Application.Match(num, .Columns(3), 0)
If IsNumeric(i) Then .Cells(i, 9) = dat
End With
End Sub