Re, KIKIROQ,
Voici la macro :
Sub DernièreLigne()
Dim I As Long
I = Cells(65536, 1).End(xlUp).Row
ActiveWindow.ScrollRow = I
End Sub
Si tu veux ajouter un bouton :
Faire :
Outils/Personnaliser…/Onglet
Commandes
Dans le cadre de gauche, sélectionner
Macros
Dans le cadre de droite, cliquer sur le
Bouton personnalisé et ne pas relâcher le clic. En déplaçant le pointeur de la souris, on transporte un petit colis. Va mettre ce colis où tu veux dans les barres de menu (comme les icônes
Couper/Coller, etc.).
Puis, clique sur le bouton
Modifier la sélection.
Sélectionne la ligne
Affecter une macro.
Sélectionne la macro, et fais
OK. Puis ferme…
Ensuite, il suffit de cliquer sur le bouton pour activer la macro.