Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim sh As Worksheet, wf As Worksheet
Set sh = ThisWorkbook.Sheets("HERIN")
Dim derlig As Long, i As Long, dl As Long, maplage As Range
Workbooks.Open Filename:="S:\Repair\INFOS COMMUNES\HERIN 2\HERIN2.xlsm"
Set wf = Workbooks("HERIN2.xlsm").Sheets("HERIN2")
derlig = wf.Range("B" & Rows.Count).End(xlUp).Row
dl = sh.Range("B" & Rows.Count).End(xlUp).Row
Set maplage = sh.Range("B2:B" & dl)
For i = 2 To derlig
If Application.WorksheetFunction.CountIf(maplage, wf.Range("B" & i).Value) = 0 Then
dl = dl + 1
sh.Range("B" & dl).Value = wf.Range("B" & i).Value
End If
Next
Workbooks("HERIN2.xlsm").Close
Application.ScreenUpdating = True
End Sub