Salut !
Tu pouvais simplifier :
Range('A1').End(xlDown).Offset(1, 0).Select ou
Range('A1').End(xlDown).Offset(1, 0).Activate
Ou si tu connais déjà la valeur à affecter :
Range('A1').End(xlDown).Offset(1, 0) = TaValeur
Ou si tu veux récupérer le numéro de la ligne en question en B2:
Range('B2') = Range('A1').End(xlDown).Offset(1, 0).Row
Etc...
@ +++
Moa