Sub essai()
Dim colonne1 As Range, colonne2 As Range, cellule As Range, trouve As Range, suite As Range
Set colonne1 = Range([A4], [A4].End(xlDown))
Set colonne2 = Range([B4], [B4].End(xlDown))
Range("D4:D65536").ClearContents
Range("C4:C65536").ClearContents
'recherche les valeurs ajoutées
For Each cellule In colonne2
Set suite = [C65536].End(xlUp).Offset(1, 0)
Set trouve = colonne1.Find(cellule.Value, LookIn:=xlValues, lookat:=xlWhole)
If trouve Is Nothing Then suite.Value = cellule.Value
Next
'recherche les valeurs supprimées
For Each cellule In colonne1
Set suite = [D65536].End(xlUp).Offset(1, 0)
Set trouve = colonne2.Find(cellule.Value, LookIn:=xlValues, lookat:=xlWhole)
If trouve Is Nothing Then suite.Value = cellule.Value
Next
End Sub