Ajouts dans Base2/Base1
Sub BD2_BD1()
Application.ScreenUpdating = False
Set f1 = Sheets("BASE 1")
Set f2 = Sheets("BASE 2")
a = f1.Range("A1").CurrentRegion.Value
b = f2.Range("A1").CurrentRegion.Value
Set mondico1 = CreateObject("Scripting.Dictionary")
For I = 2 To UBound(a)
mondico1(a(I, 1)) = ""
Next I
ligne = 1
Dim c
ReDim c(1 To Application.Max(UBound(a), UBound(b)), 1 To UBound(a, 2) + 1)
For I = 2 To UBound(b)
temp = ""
For K = 1 To UBound(b, 2): temp = temp & b(I, K): Next K
If Not mondico1.Exists(b(I, 1)) Then
For K = 1 To UBound(b, 2): c(ligne, K) = b(I, K): Next K
c(ligne, K) = I
ligne = ligne + 1
End If
Next
Sheets("BD2 NON BD1").[a2].Resize(UBound(a, 1), UBound(a, 2) + 1) = c
End Sub