Option Explicit
Sub Creation()
Dim DerL&, Lig&, Image As Object
DerL = Feuil1.Range("A" & Rows.Count).End(3).Row
Cells.Columns.AutoFit
Cells.RowHeight = 26
For Each Image In ActiveSheet.DrawingObjects
If Image.Name <> "Logo" Then Image.Delete
Next Image
For Lig = 2 To DerL
ActiveSheet.Shapes("Logo").Copy
Cells(Lig, 2).Select
ActiveSheet.Pictures.Paste.Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection.ShapeRange.Item(1), Address:=ThisWorkbook.Path & "\" & Cells(Lig, 1).Text & ".pdf"
Next Lig
[A1].Select
End Sub