Initialisation de la position d'une cellule active

Bonjour à tous,

Je souhaite pouvoir initialiser une variable déclarée de type Range (nommée "Position_courante") différemment selon plusieurs conditions. Cela me permettra ensuite de partir de cette cellule pour copier plusieurs informations dans les cellules alentours.

Toutefois, je ne parviens pas à copier l'adresse ou la position d'une cellule connue ou active dans ma variable. Les solutions suivantes (entre autres) ne marchant pas, je suis un peu à court d'idées...
Code:

1 2 Position_courante = Cells(10, 4) Position_courante.Address = Cells(10, 4).Address
Merci d'avance pour votre aide !

Bonjour,

Code:

1
2
3
Dim Position_courante As Range
Set Position_courante = Cells(10, 4)
msgbox Position_courante.Address

Génial merci pour votre réponse rapide !