Sub CompleteB()
nbLigA = Range("A" & Rows.Count).End(xlUp).Row
NbLigB = Range("B" & Rows.Count).End(xlUp).Row
If NbLigB > 1 Then NbLigB = NbLigB + 1
For i = 1 To nbLigA
If IsError(Application.Match(Cells(i, 1), Range("B:B"), 0)) Then
Cells(NbLigB, 2) = Cells(i, 1)
NbLigB = NbLigB + 1
End If
Next i
End Sub