Enregistrement modification d'informations sur userform

Bonjour,

Je suis étudiante en génie civil et dans le cadre de mes études un projet m'a été confié. Ce projet consiste à enregistrer des données, entrées dans différents userform, sur différentes feuilles d'un classeur excel.

Actuellement je suis confrontée à ce problème :

J'ai créer des boutons pour avoir la possibilité de pouvoir modifier les données entrée sur l'userform. Et par la suite ces données doivent être mises à jour dans la feuilles excel correspondant à l'userform où l'utilisateur modifie des informations.

Pour enregistrer les donnes entrées dans l'userform j'ai écrit le code suivant :

 Dim feuille1 As Worksheet
    UsfOrigine2 = Me.Name
    'on créé la feuille "Information générales du fichier" si elle n'existe pas déjà
    Set feuille1 = Creer_Feuil(xlBook, "File Information")
    'on y stocke toutes les infos saisies
    'xlApp.Visible = True
    With feuille1
        .[A1] = CbDocType
        .[A2] = TbDrawnby
        .[A3] = TbDesignedby
        .[A4] = TbCheckedby
        .[A5] = TbApprovedby
        .[A6] = TbScale
        .[A7] = TbPaperFormat
        .[A8] = TbWBS
        .[A9] = TbPhaseProject
    End With
    'Enregistrement du classeur "Projet" dans répertoir D:\DATA\l.viton\Documents
    xlBook.SaveAs Filename:=monRep & Nom_Proj, FileFormat:=xlExcel8
    
    Unload Me
    UserForm5.Show

Pour avoir accès au données au préalable enregistrées et pouvoir les modifier dans l'userform concerné j'ai donc écrit le code suivant :

'Evite le chargement des données si la feuille "General Information" existe bien
On Error GoTo Suite
    'charge les données contenues dans la feuille "File Information" dans l'userform4
    If UsfOrigine <> "UserForm4" Then Set xlBook = xlApp.Workbooks.Open(Filename:=monRep & CboNomProjets.Value & ".xls")
    With xlBook.Sheets("File Information")
        UserForm4.CbDocType = .[A1]
        UserForm4.TbDrawnby = .[A2]
        UserForm4.TbDesignedby = .[A3]
        UserForm4.TbCheckedby = .[A4]
        UserForm4.TbApprovedby = .[A5]
        UserForm4.TbScale = .[A6]
        UserForm4.TbPaperFormat = .[A7]
        UserForm4.TbWBS = .[A8]
        UserForm4.TbPhaseProject = .[A9]
    End With
Suite: 'après chargement éventuel, on affiche l'userform3
    Unload Me
    UserForm4.Show

après avoir cliqué sur le bouton "modifier Infos Fichier" de l'userfom ci-dessous, je vais modifier les données mon userform 4 (voir ci-dessous).


Userform 2



Userform 4

Lorsque je clique sur Ok voici les messages d'erreur qui apparaissent :




Merci d'avance :)