Public Sub CopieValeur()
Dim DerL1 As Long, DerL2 As Long
'Feuil1 est le codename de la feuille regarde dans la fenêtre Microsoft Excel Objets de (Feuil1)
'met Worksheets("Commande") à la place de Feuil1
'idem pour Feuil2, Worksheets ("Articles")
DerL1 = Feuil1.Range("C31").End(xlUp).Row
DerL2 = Feuil2.Range("A1048576").End(xlUp).Row
For i = 11 To DerL1
For j = 2 To DerL2
If Feuil2.Range("A" & j) = Feuil1.Range("C" & i) Then
Feuil1.Range("F" & j).Value = Feuil2.Range("I" & j).Value
Exit For
End If
Next j
Next i
End Sub