XL 2010 image format pdf

Private Sub BoutCharge_Click()
Dim F, ImageP As StdPicture
  F = Application.GetOpenFilename("Images (*.gif; *.jpg; *.tif; *.png; *.pdf),*.gif;*.jpg;*.tif; *.png; *.pdf")
  If F <> False Then
    On Error Resume Next
    If Dir(F) = "" Then Exit Sub
    Set ImageP = LoadPicture(F)
    On Error GoTo 0
    If ImageP Is Nothing Then
      MsgBox "Erreur à l'ouverture de l'image", vbCritical
    Else
      Set ImgAffichee.Picture = ImageP
      AjoutImageDansListe F
    End If
  End If
End Sub