VBA – Inscription dans une cellule de l’adresse de la dernière cellule couverte

Bonjour,
J’ai, dans une feuille excel, un TextBox (zone de texte) destinée à recevoir de longs textes. J’ai pour cela réglé cette TextBox dans FORMAT DE FORME, en choisissant ‘’Zone de texte’’ et j’ai coché ‘’Ajuster la forme au texte’’. La forme s’allonge ou diminue suivant longueur du texte. Sa largeur est fixe et la première cellule de la feuille couverte par la TextBox est fixe.

En vue d’impression par VBA, j’ai besoin de déterminer l’adresse de la dernière cellule couverte par cette TextBox, d’où je déduirai le nombre de pages à imprimer.

J’ai appris comment déterminer cette adresse et comment me la retourner par un MsgBox, mais je ne trouve pas comment inscrire cette adresse dans une cellule de la feuille, d’où je pourrai la retrouver pour calculer le nombre de pages.

La macro que j’utilise pour un retour de l’information depuis une MsgBox est celle-ci :

Sub AdresseCelluledeFinTextBox()
   ' Activation de la TextBox2
    ActiveSheet.Shapes.Range(Array("TextBox 2")).Select
    For Each Target In Selection.ShapeRange
        MsgBox ActiveSheet.Shapes(Target.Name).BottomRightCell.Address
    Next
    ' Mettre le résultat dans la cellule K1 de la feuille (cette formule ne fonctionne pas, ce qui précède fonctionne)
    Range("K1").Value = ActiveSheet.Shapes(Target.Name).BottomRightCell.Address
End Sub

Fichier exemple joint : https://mon-partage.fr/f/eN2pN0Uo/

Pouvez-vous m’aider ? Le sujet parait peu débattu. merci.

EDIT : Ajout des balises de code (la coloration syntaxique). Explications disponibles ici : ICI Merci d'y penser dans tes prochains messages.