Function Manque(Tous, Choisis)
Application.Volatile
TblTous = Tous.Value
TblChoisis = Choisis.Value
Set d = CreateObject("scripting.dictionary")
For i = 1 To UBound(TblChoisis)
d(TblChoisis(i, 1)) = ""
Next i
Set d2 = CreateObject("scripting.dictionary")
For i = 1 To UBound(TblTous)
tmp = TblTous(i, 1)
If Not d.exists(tmp) Then d2(tmp) = ""
Next i
n = Application.Caller.Rows.Count
Dim b(): ReDim b(1 To n, 1 To 1)
i = 0
For Each c In d2.keys
i = i + 1
b(i, 1) = c
Next c
Manque = b
End Function