Macro poour insérer un fichier

Sub Inserer_Objet_Fichier()
Dim OLEobj As OLEObject
Dim Gauche As Double, HautTop As Double, Largeur As Double, Hauteur As Double
Dim FileToOpen As String
ChDir "C:\Users\bibi\Documents\jphi" 'Répertoire à adapter
FileToOpen = Application.GetOpenFilename("Fichiers Pdf(*.pdf), *.pdf")
If FileToOpen <> "Faux" Then
    Gauche = ActiveCell.Left: HautTop = ActiveCell.Top
    Largeur = ActiveCell.Width * 2: Hauteur = ActiveCell.Height * 3
    Set OLEobj = ActiveSheet.OLEObjects.Add(Filename:=FileToOpen, _
        Link:=False, displayAsIcon:=True, iconIndex:=0, iconLabel:=FileToOpen)
    OLEobj.Left = Gauche: OLEobj.Top = HautTop
    OLEobj.Width = Largeur: OLEobj.Height = Hauteur
End If
End Sub

Sub Inserer_Objet_Fichier()
Dim OLEobj As OLEObject
Dim Gauche As Double, HautTop As Double, Largeur As Double, Hauteur As Double
Dim FileToOpen As String
ChDir "C:\Users\bibi\Documents\jphi" 'Répertoire à adapter
FileToOpen = Application.GetOpenFilename("Fichiers Pdf(*.pdf), *.pdf")
If FileToOpen <> "Faux" Then
    Gauche = ActiveCell.Left: HautTop = ActiveCell.Top
    Largeur = ActiveCell.Width * 2: Hauteur = ActiveCell.Height * 4
    Set OLEobj = ActiveSheet.OLEObjects.Add(Filename:=FileToOpen, _
        Link:=False, DisplayAsIcon:=True, IconFileName:= _
        "C:\Program Files\Adobe\Reader 8.0\Reader\AcroRd32.exe", IconIndex:=0, IconLabel:=Dir(FileToOpen))
    With OLEobj
        .Left = Gauche: .Top = HautTop
        .Width = Largeur: .Height = Hauteur
    End With
End If
End Sub