Bonjour à tous

sur un fichier, avec plusieurs formulaire j'utilise régulièrement ce type de ligne :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
 
Sheets("operation de tresorerie").Range("a65536").End(xlUp).Offset(1, 0) = nstock
Sheets("operation de tresorerie").Range("b65536").End(xlUp).Offset(1, 0) = nom
Sheets("operation de tresorerie").Range("c65536").End(xlUp).Offset(1, 0) = total + 0
 
Sheets("facture").Range("a65536").End(xlUp).Offset(1, 0).Value = Date
Sheets("facture").Range("b65536").End(xlUp).Offset(1, 0).Value = box_nom.Value
est-il possible tout d'abord de créer un alias qui permettrait d’écrire de la sorte :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
 
operation.finA.Offset(1, 0) = nstock
operation.finB.Offset(1, 0) = nom
operation.finC.Offset(1, 0) = total + 0
 
facture.finA.Offset(1, 0).Value = Date
facture.finB.Offset(1, 0).Value = box_nom.Value
de sorte que chaque fois que je dois faire un range end xlup, je mette cette alias finA ou finB.
Mais aussi est-il possible de les déclarer une seule fois de sorte que ces alias sois utilisable sur plusieurs formulaire ?

merci