Erreur d'incompatibilité (erreur13) Excel VBA

Bonjour,

J'ai une utilisatrice que n'arrives plus a utiliser un fichier excel avec des macro,
celui-ci a pour fonction de chercher un autre fichier @XRT_EXTRAIT_EXP,

au moment de l'ouverture du fichier @XRT, j'ai un message comme '' Erreur d'execution '13': Incompatibilité de type "

j'ai l'option Débogage: 

.....
        .Font.Bold = True
        .Interior.ColorIndex = 35
    End With
    
    'Incrémentation colonne A
    Do Until IsEmpty(Cells(i, 2))
        Cells(i, 1).Value = i - 1
        
        'Soldes initiaux et finaux
        If Cells(i, 2).Value = 1 Then
            Cells(i, 14).Value = "SI"
        ElseIf Cells(i, 2).Value = 7 Then
            Cells(i, 14).Value = "SF"
        End If
        
        'Correction du sens des crédits
        If Cells(i, 12).Value = "-" Then
            Cells(i, 11).Value = -Cells(i, 11).Value    < l'erreur viens d'ici :/ 
        End If
        
        i = i + 1
    Loop
    
    'Masquage des colonnes inutiles
    Columns(6).EntireColumn.Hidden = True
    Columns(7).EntireColumn.Hidden = True
    Columns(8).EntireColumn.Hidden = True
    Columns(10).EntireColumn.Hidden = True
    
    'Manque la conversion de type du Libellé 2
    
End Sub
......

pouvez-vous m'aider s'il vous plait ?