Qualificateur incorrect

Sub MAJ_OPTIMUM()
'
' MAJ_Suivi_D2 Macro
' Mise à jour des donnée OPTIMUM
'
Dim Dossier As String
Dim Id_PM, Etat_PM, Id_PA, Etat_PA, Id_Process, Num, Num_cplt, Voie, Adresse, Batiment, Etat_Nego, Nb_logt, logt_R, logt_P, Annee_prog, typo, Envoi_acces, Valid_acces, Id_PB, Date_PB, Code_syndic, Nom_syndic, DTA, Nego_int, Envoi_accord, Retour_accord, Refus_accord, Date_recep_PETU, Date_valid_PETU, Date_accord As Variant
Dim i, j As Integer
Dim trouve As Boolean
Dim shSUIVI As Worksheet

Set shSUIVI = Workbooks("Export site lot2 LE MANS.xlsm").Worksheets("Suivi D2")


Call MaProcedure
'recuperation nom du fichier sans le chemin
NomFichier = Right(NomFichier, Len(NomFichier) - Len(Rep_Fichier))

With Workbooks(NomFichier).Worksheets("sites")

i = 10
Do While Not (IsEmpty(.Cells(i, 1)))

    Dossier = .Cells(i, 1)
    
    Id_PM = .Cells(i, 6).Value
    Etat_PM = .Cells(i, 9).Value
    Id_PA = .Cells(i, 14).Value
    Etat_PM = .Cells(i, 15).Value
    Id_Process = .Cells(i, 16).Value
    Num = .Cells(i, 23).Value
    Num_cplt = .Cells(i, 24).Value
    Voie = .Cells(i, 25).Value
    Adresse = .Cells(i, 26).Value
    Batiment = .Cells(i, 27).Value
    Etat_Nego = .Cells(i, 33).Value
    Nb_logt = .Cells(i, 46).Value
    logt_R = .Cells(i, 47).Value
    logt_P = .Cells(i, 48).Value
    Annee_prog = .Cells(i, 58).Value
    typo = .Cells(i, 39).Value
    Envoi_acces = .Cells(i, 64).Value
    Valid_acces = .Cells(i, 65).Value
    Id_PB = .Cells(i, 115).Value
    Date_PB = .Cells(i, 116).Value
    Code_syndic = .Cells(i, 121).Value
    Nom_syndic = .Cells(i, 122).Value
    DTA = .Cells(i, 123).Value
    Nego_int = .Cells(i, 130).Value
    Envoi_accord = .Cells(i, 136).Value
    Retour_accord = .Cells(i, 137).Value
    Refus_accord = .Cells(i, 138).Value
    Date_recep_PETU = .Cells(i, 143).Value
    Date_valid_PETU = .Cells(i, 147).Value
    Date_accord = .Cells(i, 150).Value
    
    trouve = False
    
    Workbooks("Export site lot2 LE MANS.xlsm").Worksheets("Suivi D2").Activate
    
    j = 10
    Do While Not IsEmpty(shSUIVI.Cells(j, 2))
    
               If shSUIVI.Cells(j, 2) = Dossier Then
                
                If Not IsNull(Id_PM) Or Id_PM <> "" Then
                    shSUIVI.Cells(j, 2) = Id_PM
                End If
                If Not IsNull(Etat_PM) Or Etat_PM <> "" Then
                    shSUIVI.Cells(j, 2) = Etat_PM
                End If
                If Not IsNull(Id_PA) Or Id_PA <> "" Then
                    shSUIVI.Cells(j, 2) = Id_PA
                End If
                If Not IsNull(Etat_PM) Or Etat_PM <> "" Then
                    shSUIVI.Cells(j, 2) = Etat_PM
                End If
                If Not IsNull(Id_Process) Or Id_Process <> "" Then
                    shSUIVI.Cells(j, 2) = Id_Process
                End If
                If Not IsNull(Num) Or Num <> "" Then
                    shSUIVI.Cells(j, 2) = Num
                End If
                If Not IsNull(Num_cplt) Or Num_cplt <> "" Then
                    shSUIVI.Cells(j, 2) = Num_cplt
                End If
                If Not IsNull(Voie) Or Voie <> "" Then
                    shSUIVI.Cells(j, 2) = Voie
                End If
                If Not IsNull(Adresse) Or Adresse <> "" Then
                    shSUIVI.Cells(j, 2) = Adresse
                End If
                If Not IsNull(Batiment) Or Batiment <> "" Then
                    shSUIVI.Cells(j, 2) = Batiment
                End If
                If Not IsNull(Etat_Nego) Or Etat_Nego <> "" Then
                    shSUIVI.Cells(j, 2) = Etat_Nego
                End If
                If Not IsNull(Nb_logt) Or Nb_logt <> "" Then
                    shSUIVI.Cells(j, 2) = Nb_logt
                End If
                If Not IsNull(logt_R) Or logt_R <> "" Then
                    shSUIVI.Cells(j, 2) = logt_R
                End If
                If Not IsNull(logt_P) Or logt_P <> "" Then
                    shSUIVI.Cells(j, 2) = logt_P
                End If
                If Not IsNull(Annee_prog) Or Annee_prog <> "" Then
                    shSUIVI.Cells(j, 2) = Annee_prog
                End If
                If Not IsNull(typo) Or typo <> "" Then
                    shSUIVI.Cells(j, 2) = typo
                End If
                If Not IsNull(Envoi_acces) Or Envoi_acces <> "" Then
                    shSUIVI.Cells(j, 2) = Envoi_acces
                End If
                If Not IsNull(Valid_acces) Or Valid_acces <> "" Then
                    shSUIVI.Cells(j, 2) = Valid_acces
                End If
                If Not IsNull(Id_PB) Or Id_PB <> "" Then
                    shSUIVI.Cells(j, 2) = Id_PB
                End If
                If Not IsNull(Date_PB) Or Date_PB <> "" Then
                    shSUIVI.Cells(j, 2) = Date_PB
                End If
                If Not IsNull(Code_syndic) Or Code_syndic <> "" Then
                    shSUIVI.Cells(j, 2) = Code_syndic
                End If
                If Not IsNull(Nom_syndic) Or Nom_syndic <> "" Then
                    shSUIVI.Cells(j, 2) = Nom_syndic
                End If
                If Not IsNull(DTA) Or DTA <> "" Then
                    shSUIVI.Cells(j, 2) = DTA
                End If
                If Not IsNull(Nego_int) Or Nego_int <> "" Then
                    shSUIVI.Cells(j, 2) = Nego_int
                End If
                If Not IsNull(Envoi_accord) Or Envoi_accord <> "" Then
                    shSUIVI.Cells(j, 2) = Envoi_accord
                End If
                If Not IsNull(Retour_accord) Or Retour_accord <> "" Then
                    shSUIVI.Cells(j, 2) = Retour_accord
                End If
                If Not IsNull(Refus_accord) Or Refus_accord <> "" Then
                    shSUIVI.Cells(j, 2) = Refus_accord
                End If
                If Not IsNull(Date_recep_PETU) Or Date_recep_PETU <> "" Then
                    shSUIVI.Cells(j, 2) = Date_recep_PETU
                End If
                If Not IsNull(Date_valid_PETU) Or Date_valid_PETU <> "" Then
                    shSUIVI.Cells(j, 2) = Date_valid_PETU
                End If
                If Not IsNull(Date_accord) Or Date_accord <> "" Then
                    shSUIVI.Cells(j, 2) = Date_accord
                End If
                
                GoTo debut
                trouve = True
            End If
            j = j + 1
    Loop
    
        
debut:
'Next i
i = i + 1
Loop
End With
MsgBox "MAJ Terminée", vbOKOnly
End Sub

Sub MaProcedure()

    NomFichier = RechercheFichier()
    If NomFichier = "" Then
        MsgBox "Vous n'avez sélectionné aucun fichier"
        Else
        Workbooks.Open NomFichier
    End If
End Sub

Function RechercheFichier() As String
    Dim fd As FileDialog
    Dim NomFichier As String
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    With fd
        .Filters.Add "fichier xls", "*.xls"
        .Title = "Recherche de fichier"        'mettre le chemin du repertoire
        .InitialFileName = "d:\_cles\"  '"Bureau\"
        'repertoire fichier
        Rep_Fichier = .InitialFileName
    End With
    If fd.Show = -1 Then NomFichier = fd.SelectedItems(1)
    RechercheFichier = NomFichier
End Function