Sub Elimine()
Dim P As Range, T1, T2, ncol%, u&, R(), i&, t$, j&, n&, k%
Set P = Sheets("TABLEAU 1").[A1].CurrentRegion
T1 = P
T2 = Sheets("TABLEAU 2").[A1].CurrentRegion
ncol = UBound(T1, 2)
u = UBound(T2)
ReDim R(1 To UBound(T1), 1 To ncol)
For i = 1 To UBound(T1)
t = T1(i, 1) & T1(i, 2)
For j = 2 To u
If t = T2(j, 1) & T2(j, 2) Then GoTo 1
Next
n = n + 1
For k = 1 To ncol
R(n, k) = T1(i, k)
Next
1 Next
P = R
End Sub