Inseré une image dans un userform a l'aide de l'option parcourir

Private Sub CommandButton1_Click()
  Dim FichImg As Variant
  
    FichImg = Application.GetOpenFilename("Tous types de fichiers (*.*),*.*")
    'Si aucun fichier n'est sélectionné on passe au traitement d'erreur (PasDeFichier)
    If FichImg = False Then GoTo PasDeFichier
    'Si le fichier sélectionné n'est pas une image
    'le traitement d'erreur va traiter la ligne d'insertion
    'ne rien faire et passer au traitement de l'erreur (PasUneImage)
    On Error GoTo PasUneImage
    'Tentative d'insertion du fichier dans le contrôle Image1
    Me.Image1.Picture = LoadPicture(FichImg)
    Exit Sub
'traitements d'erreurs
PasDeFichier:
MsgBox "Vous devez sélectionner un fichier Image pour l'insérer.", vbCritical
Exit Sub
PasUneImage:
MsgBox "Le format de fichier choisi ne convient pas.", vbCritical
End Sub