Sub Mon_Enreg_PDF()
ActiveSheet.OLEObjects.Add(ClassType:="Acrobat.Document.11", Link:=False, _
DisplayAsIcon:=True, IconFileName:= _
"""C:\Program Files (x86)\Adobe\Acrobat 11.0\Acrobat\Acrobat.exe""", IconIndex _
:=0, IconLabel:="Adobe Acrobat Document").Activate
End Sub