Sub InsererPDF()
'myDearFriend! - www.mdf-xlpages.com
Dim Obj As OLEObject
Dim Chemin As Variant
Dim T As String
'Choix du fichier PDF
Chemin = Application.GetOpenFilename("Fichiers PDF(*.pdf),*.pdf", Title:="Choisir le fichier .PDF à insérer")
If Chemin = False Then Exit Sub
Application.ScreenUpdating = False
'Création nouvelle feuille
'With Worksheets.Add(After:=Worksheets(Worksheets.Count))
On Error Resume Next
' .Name = Left(Mid(Chemin, InStrRev(Chemin, "") + 1), 31)
'Insertion de l'objet PDF
Set Obj = .OLEObjects.Add(Filename:=Chemin, Link:=True, DisplayAsIcon:=True)
'End With
Obj.Left = 1
Obj.Top = 1
Application.ScreenUpdating = True
End Sub