Private Sub CommandButton2_Click()
Dim Wbk1 As Workbook, Wbk2 As Workbook, i As Long
Dim p As Range, f As Worksheet, xl&
PathFich$ = ThisWorkbook.Path & "\" & ThisWorkbook.Name
Set Wbk1 = ThisWorkbook
Set Wbk2 = Workbooks("SYNTHESE.xls")
Set f = Wbk2.Sheets("Feuil1")
Set p = f.Range(f.Cells(1, 1), f.Cells(Rows.Count, 1).End(xlUp))
For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
xl = Application.Match(Cells(i, 1), p, 0)
If Not IsError(xl) Then
f.Hyperlinks.Add f.Cells(xl, "B"), PathFich$
f.Cells(xl, "C").Value = Cells(i, "B").Value
f.Cells(xl, "D").Value = Cells(i, "C").Value
f.Cells(xl, "E").Value = Cells(i, "D").Value
f.Cells(xl, "F").Value = Cells(i, "E").Value
End If
Next
End Sub