Microsoft 365 Erreur d'execution 13 Incompatibilité de type

Function ChoixFichier() As String
    'La variable est de type Variant car elle peut prendre les valeurs:
        'Booleenne: (Vrai/Faux) quand l'utilisateur ne sélectionne rien, ou annule l'opération.
        'String: pour renvoyer le nom du fichier sélectionné.
    Dim Fichier As Variant[ATTACH type="full"]1128666[/ATTACH]
 
    'Affiche la boîte de dialogue "Ouvrir"
    Fichier = Application.GetOpenFilename("Tous les fichiers (*.*),*.*")
 
    'On sort si aucun fichier n'a été sélectionné ou si l'utilisateur
    'a cliqué sur le bouton "Annuler", ou sur la croix de fermeture.
    If Fichier = False Then Exit Function
 
    
    
    ChoixFichier = Fichier
End Function

Function ChoixRepertoire() As String
    'La variable est de type Variant car elle peut prendre les valeurs:
        'Booleenne: (Vrai/Faux) quand l'utilisateur ne sélectionne rien, ou annule l'opération.
        'String: pour renvoyer le nom du fichier sélectionné.
    Dim Dossier
    Dossier = False
    Application.FileDialog(msoFileDialogFolderPicker).Show
    If (Application.FileDialog(msoFileDialogFolderPicker).SelectedItems.Count <> 0) Then
        Dossier = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1)
    End If
 
    'On sort si aucun fichier n'a été sélectionné ou si l'utilisateur
    'a cliqué sur le bouton "Annuler", ou sur la croix de fermeture.
    If Dossier = False Then Exit Function
 
    
    
    ChoixRepertoire = Dossier
End Function
Sub delete_images()
    Dim ws As Worksheet, image As Picture, reponse As Integer
    For Each ws In Worksheets
        ws.Activate
        For Each image In ActiveSheet.Pictures
            image.Visible = True
            image.Select
            reponse = MsgBox("Supprimer image trouvée " _
                           & Chr(10) & image.Name _
                           & Chr(10) & "X " & image.Left _
                           & Chr(10) & "Y " & image.Top _
                           & Chr(10) & "formule " & image.Formula, vbQuestion + vbYesNo, "Coucou J@@")
            If reponse = vbYes Then image.Delete
        Next image
    Next ws
End Sub

Function creerRepertoire(Chemin As String) As Boolean
On Error Resume Next
RépertoireExiste = GetAttr(Chemin) And vbDirectory
    If RépertoireExiste = True Then
        Exit Function
    Else
        MkDir (Chemin)
    End If
End Function


Public Function DossierExiste(MonDossier As String)
    If Len(Dir(MonDossier, vbDirectory)) > 0 Then
        DossierExiste = True
    Else
        DossierExiste = False
    End If
    
    If (MonDossier = "") Then
        
    End If
    DossierExiste = False
End Function