Dans un module (alt+F11 Insertion/Module)
Function Diff(champ As Range, champ2 As Range)
Dim temp()
ReDim temp(1 To champ.Count)
j = 1
For i = 1 To champ.Count
témoin = IsError(Application.Match(champ(i), champ2, 0))
If témoin Then
temp(j) = champ(i): j = j + 1
End If
Next i
Diff = Application.Transpose(temp)
End Function