Sub ajoutNouveaux()
Set liste = CreateObject("scripting.dictionary")
Set liste2 = CreateObject("scripting.dictionary")
With Sheets("Table 2")
For lig = 2 To .Cells(.Rows.Count, 2).End(xlUp).Row
liste(.Cells(lig, 2).Value) = ""
Next lig
End With
With Sheets("Table 1")
For lig = 2 To .Cells(.Rows.Count, 2).End(xlUp).Row
If Not liste.exists(.Cells(lig, 2).Value) Then liste2(.Cells(lig, 2).Value) = ""
Next lig
End With
Sheets("Table 2").Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Resize(liste2.Count) = Application.Transpose(liste2.keys)
End Sub