Pour répondre à la question, voici le code que j'ai construit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For i = 7 To Sheets("Bon de sortie").Cells(Rows.Count, 1).End(xlUp).Row
N°_article = Sheets("Bon de sortie").Range("D" & i)
For K = 7 To Sheets("Articles d'inventaire").Cells(Rows.Count, 1).End(xlUp).Row
article = Sheets("Articles d'inventaire").Range("A" & K)
If N°_article = article Then Description = Sheets("Articles d'inventaire").Range("B" & K): marque = Sheets("Articles d'inventaire").Range("C" & K)
Sheets("Bon de sortie").Range("E" & i) = Description
Sheets("Bon de sortie").Range("F" & i) = marque
Next K
Next i
End Sub