Bug avec FileImg

bonjour,


Je documente un userform avec des images en cliquant sur un bouton loadphoto.
j'ai une erreur de compli sur FileImg, Projet ou bibliothèque introuvable???
merci de votre aide
😡
voici le code

Private Sub loadPhoto2_Click()
FileImg = FileOpen("Choisir le fichier", , "Image", "*.jpg;*.gif")
Me.photo2.Picture = LoadPicture(Mid(FileImg, 2, 200))
End Sub
Function FileOpen(Optional ByVal sTitle As String = "Choisir le(s) fichier(s)", Optional ByVal bAllowMultiSelect As Boolean = True, Optional ByVal sFiltreName As String = "Images", Optional ByVal sFiltreContent As String = "*.bmp; *.gif; *.jpg; *.jpeg; *.png") As String
' CHOIX D'UN FICHIER PAR VBA

Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
Dim vrtSelectedItem As Variant
With fd
.Title = sTitle 'Titre
.AllowMultiSelect = False 'bAllowMultiSelect=Choix multiples
.Filters.Add sFiltreName, sFiltreContent, 1 'Filtre image
If .Show = -1 Then
For Each vrtSelectedItem In .SelectedItems
FileOpen = Trim(FileOpen & "|" & vrtSelectedItem)
Next vrtSelectedItem
Else
'Bouton Annuler
End If
End With
Set fd = Nothing
End Function