Sub Macro1()
Dim pl1 As Range 'déclare la variable pl1 (PLage 1)
Dim pl2 As Range 'déclare la variable pl2 (PLage 2)
Dim cel As Range 'déclare la variable cel (CELlule)
With Sheets("Feuil1") 'prend en compte l'onglet "Feuil1"
Set pl1 = .Range("A1:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row) 'définit la plage pl1
End With 'fin de la prise en compte l'onglet "Feuil1"
With Sheets("Feuil2") 'prend en compte l'onglet "Feuil2"
Set pl2 = .Range("A1:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row) 'définit la plage pl2
End With 'fin de la prise en compte l'onglet "Feuil2"
For Each cel In pl1 'boucle sur toutes les cellules éditées cel de la plge pl1
'si aucune occurrence de la valeur de la cellule cel n'est trouvée dans la plage pl2, place la valeur de la cellule cel dans la colonne B
If pl2.Find(cel.Value, , xlValues, xlWhole) Is Nothing Then cel.Offset(0, 1).Value = cel.Value
Next cel 'prochaine cellule de la boucle
End Sub