Variable objet ou variable de bloc With non définie: Erreur d'éxécution 91

'Procédure permettant l'ouverture d'un formulaire
Sub openFormentry_new_request()

    
    F_Saisie_Request_new_Project.Show
End Sub

Private Sub btn_cancel_Click()
Me.cbo_project_name = ""
Me.cbo_BU = ""
Me.cbo_Country = ""
Me.cbo_request = ""
Me.txt_expctddate = ""
Me.txt_demand_description = ""
Me.cbo_contact = ""
End Sub

Private Sub btn_quit_Click()
Unload Me
End Sub

Private Sub btn_Save_Click()
        'On teste que les controles ont bien été saisis
        If Len(Me.txt_demand_description) = 0 Then
            Me.LabelMSG = "Please describe the need"
            Me.txt_demand_description.SetFocus
        ElseIf Len(Me.cbo_project_name) = 0 Then
            Me.LabelMSG = "Please inform a project name"
            Me.cbo_project_name.SetFocus
        ElseIf Len(Me.cbo_BU) = 0 Then
            Me.LabelMSG = "Please indicate the BU"
        ElseIf Len(Me.cbo_Country) = 0 Then
            Me.LabelMSG = "Please Indicate the location"
        ElseIf Len(Me.cbo_request) = 0 Then
            Me.LabelMSG = "Please inform the type of request"
        ElseIf Len(Me.txt_expctddate) = 0 Then
            Me.LabelMSG = "Inform an expected date of delivery"
        ElseIf IsDate(txt_expctddate) = False Then
            Me.LabelMSG = "Inform a valid expected date"
        ElseIf txt_expctddate <> Format(txt_expctddate, "dd/mm/yyyy") Then
            Me.LabelMSG = "Inform with format dd/mm/yyyy"
        ElseIf CDate(txt_expctddate) < Date Then
            Me.LabelMSG = "Please inform a date in the future"
        ElseIf Len(Me.cbo_contact) = 0 Then
            Me.LabelMSG = "Please indicate a contact"
                    
        Else        'Si tous les champs sont complet alors on peut sauvegarder dans la source
            'On cherche prochaine ligne vide de la source
        Feuil2.Activate
        Feuil2.Range("A1048576").End(xlUp).Offset(1, 0).Select
        'On affecte donnée formulaire dans la source

        ActiveCell.Offset(0, 0) = Me.cbo_project_name
        ActiveCell.Offset(0, 1) = Me.cbo_BU
        ActiveCell.Offset(0, 2) = Me.cbo_Country
        ActiveCell.Offset(0, 3) = Me.cbo_request
        ActiveCell.Offset(0, 4) = Me.txt_expctddate
        ActiveCell.Offset(0, 5) = Me.txt_demand_description
        ActiveCell.Offset(0, 6) = Me.cbo_contact
        ActiveCell.Offset(0, 7) = "A traiter"
        ActiveCell.Offset(0, 8) = ActiveCell.Offset(-1, 8).Value + 1
        End If
End Sub

Private Sub UserForm_Initialize()
F_Saisie_Request_new_Project.Show
End Sub