Bonjours à tous

Pour clarifiez la lecture de mes code je voudrais arrivez à modifier ce type de code

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
commande1.Value = Worksheets("n°commande").Range("b65536").End(xlUp).Offset(1, -1).Value
J'ai déjà simplifier la lecture sur la partie nom de la feuille
ce qui donne
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
 
Dim commande As Excel.Worksheet
    Set commande = Application.ThisWorkbook.Worksheets("n°commande")
 
commande1.Value = commande.Range("b65536").End(xlUp).Offset(1, -1).Value
peux-t-on faire la même chose sur la deuxième parie
j'ai essayé ceci sans succès

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
 
Dim commande As Excel.Worksheet
    Set commande = Application.ThisWorkbook.Worksheets("n°commande")
 
Dim findecolonne As Range
    Set findecolonne = Range("b65536").End(xlUp)
 
commande1.Value = commande.findecolonne.Offset(1, -1).Value
et aussi

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
 
Dim commande As Excel.Worksheet
    Set commande = Application.ThisWorkbook.Worksheets("n°commande")
 
Dim findecolonne As Long
findecolonne= Range("B65536").End(xlUp)
 
 
commande1.Value = commande.findecolonne.Offset(1, -1).Value
mais sans succès