Pour le choix de la ligne :
ceci te donnera ligne = 2
car le calcul se fait sur la feuille accueil même si tu as activé une autre feuille
Sub EnregistrerDepense()
Dim Ligne As Long
Worksheets(Range("Choix_bordereau").Value).Activate
Ligne = Range("A" & Rows.Count).End(xlUp).Row + 1
MsgBox Ligne
End Sub
alors que ceci te donnera ligne = 28
qui pointe sur la bonne feuille, mais ce n'est pas non plus la bonne valeur car elle se situe en dessous de sous-total
Sub EnregistrerDepense()
Dim Ligne As Long
Worksheets(Range("Choix_bordereau").Value).Activate
Worksheets(Range("Choix_bordereau").Value).Range("A" & Rows.Count).End(xlUp).Row + 1
MsgBox Ligne
End Sub
et si tu mets xldown à partir de A9
Ligne = Worksheets(Range("Choix_bordereau").Value).Range("A9").End(xlDown).Row + 1
ce sera toujours 28 car même si ton tableau semble vide il ne l'est pas vraiment. Tout au moins les cellules contiennent un tableau (vide)