Private Sub CommandButton1_Click()
Dim derlig As Long, i As Long, dl As Long, maplage As Range
derlig = Range("A" & Rows.Count).End(xlUp).Row
With Sheets("Feuil1").Select 'nom de la feuille qu'ouvre ce bouton
dl = .Range("A" & Rows.Count).End(xlUp).Row
Set maplage = .Range("A2:A" & dl)
End With
Workbooks.Open Filename:="F:\Documents\nomdufichier.xlsx"
Sheets("HERIN").Select
For i = 2 To derlig
If Application.WorksheetFunction.CountIf(maplage, Range("A" & i).Value) = 0 Then
Sheets("Feuil1").Range("A" & dl + 1).Value = Range("A" & i).Value
End If
Next
End Sub