Microsoft 365 Choix d'une feuille de classeur spécifique où enregistrer des données à partir d'une combobox

with sheets(combobox.value)
  lig=.range("A"&rows.count).end(xlup).row+1
  .cells(lig,1)=me.textbox1....
end with

'**************************************
' Procédure permettant d'initialiser
' le formulaire
'**************************************

Private Sub UserForm_Initialize()
    'Déclaration des variables
    Dim NouvelID As Long
    ' email
    Dim txtEmail As String
       

    NouvelID = Application.WorksheetFunction.Max(Feuil5.Range("A:A")) + 1
    Me.txtNombre = NouvelID
    Me.cboMois.SetFocus
    Me.lblMessage = "Veuillez choisir un mois pour le nouveau patient"
End Sub

'***************************************
' Procédure permettant de réinitialiser
' les champs du formulaire
'***************************************

Private Sub btnEffacer_Click()

    Me.txtPrenom = ""
    Me.txtNom = ""
    Me.txtEmail = ""
    Me.txtTarif = ""
    Me.lblMessage = ""
   
End Sub

'***************************************
' Procédure permettant d'ajouter un
' nouvel enregistrement dans la base
' de données
'***************************************

Private Sub btnNouveau_Click()
'On teste que les contrôles ont bien été saisie
    If Len(Me.cboMois) = 0 Then
    Me.lblMessage = "Veuillez choisir un mois"
    Me.cboMois.SetFocus
    ElseIf Len(Me.txtPrenom) = 0 Then
    Me.lblMessage = "Veuillez saisir le prénom du Patient."
    Me.txtPrenom.SetFocus
    ElseIf Len(Me.txtNom) = 0 Then
    Me.lblMessage = "Veuillez saisir le nom du Patient."
    Me.txtNom.SetFocus
    ElseIf Len(Me.txtEmail) = 0 Then
    Me.lblMessage = "Veuillez saisir le mail du Patient."
    Me.txtEmail.SetFocus
    ElseIf Len(Me.txtTarif) = 0 Then
    Me.lblMessage = "Veuillez saisir le tarif de la consultation."
    Me.txtTarif.SetFocus
    Else    'Si tous les champs sont complets, alors on peut sauvegarder la source
        ' On cherche la prochaine ligne vide de la source en partant du bas
        Feuil5.Activate
        Feuil5.Range("A1048576").End(xlUp).Offset(1, 0).Select
        ' On affecte les données du formulaire dans la source
        ActiveCell = ActiveCell.Offset(-1, 0) + 1
        ActiveCell.Offset(0, 1) = Me.txtPrenom
        ActiveCell.Offset(0, 2) = Me.txtNom
        ActiveCell.Offset(0, 3) = Me.txtEmail
        ActiveCell.Offset(0, 4) = CCur(Me.txtTarif)
               
        ' On vide le formulaire pour une prochaine saisie
        Call btnEffacer_Click
        Unload Me
        Feuil5.Activate
    End If
   
End Sub

Private Sub btnModifier_Click()
        Unload Me
        Feuil5.Activate
        Feuil5.Range("A1048576").End(xlUp).Offset(0, 1).Select
End Sub

'******************************
' Procédure permettant de
' fermer un formulaire
'******************************

Private Sub btnQuitter_Click()

    Unload Me

End Sub