Sub Essai1()
With Sheets("Codes") ' Toutes les références de cellules, précédées par un point, seront relatives à la feuille "Codes"
.Range("D11:E20").ClearContents ' Efface la plage "D11:E20" de la feuille "Codes"
For lg = 11 To 20 ' Boucle balayant les lignes 11 à 20
' Recherche dans la colonne B de la feuille "Référence" si la valeur de la cellule B de la ligne en cours de lecture existe, et affecte le résultat à la variable cod_m
' Si cette valeur n"est pas trouvée, cod_m est vide
Set cod_m = Sheets("Référence").Range("B:B").Find(.Cells(lg, 2), LookIn:=xlValues, lookat:=xlWhole)
' Si cette valeur est trouvée (cod_m non vide), on copie la valeur de la cellule située immédiatement à gauche (colonne A) dans la cellule D (4) de la ligne en cours d'analyse sur la feuille "Codes"
' Démarche identique aux 2 lignes précédentes
If Not cod_m Is Nothing Then .Cells(lg, 4) = cod_m.Offset(0, -1)
Set cod_p = Sheets("Référence").Range("B:B").Find(.Cells(lg, 3), LookIn:=xlValues, lookat:=xlWhole)
If Not cod_p Is Nothing Then .Cells(lg, 5) = cod_p.Offset(0, -1)
Next
End With
End Sub