Sub Macro1()
Dim cel As Range 'déclare la variable cel (CELlule)
Dim dest As Range 'déclare la variable dest (DESTination)
Dim r As Range 'déclare la variable r (Recherche)
For Each cel In Selection 'boucle sur toutes les cellules de la sélection
Set dest = Sheets("Feuil2").Range("A65536").End(xlUp).Offset(1, 0) 'definit la cellule de destination
Set r = Sheets("Feuil2").Columns(1).Find(cel.Offset(0, -1), , xlValues, xlWhole) 'définit la recherche
If r Is Nothing Then 'condition : si le code m'existe pas
cel.Offset(0, -1).Copy dest 'copy le code dans la destination
Set dest = dest.Offset(1, 0) 'redefinit la destination (une ligne en dessous)
End If 'fin de la condition
cel.Copy dest 'copie le produit dans la destination
Next cel
End Sub