Se rendre à la dernière ligne

[maval]

Bonjour,

J'ai sur ma feuille un CommandButton pour me rendre à la dernière ou à la première ligne de ma feuille avec se code:

Private Sub CommandButton1_Click()

If CommandButton1.Caption = "Dernière Ligne" Then
    CommandButton1.Caption = "Première Ligne"
      Range("D8000").End(xlUp).Offset(0, 0).Select
Else
    CommandButton1.Caption = "Dernière Ligne"
    Range("D5").Select
End If
End Sub

J'aimerais faire la même chose avec une forme si possible?

Je vous remercie d'avance
Max

 

[M12]

Bonjour

Un test

Ensuite, on peut rajouter des "fioritures"
Police - Taille - Couleur etc

 

[maval]

Boujour M12

Je te remercie Nickel.
Je te souhaite une bonne journée

Max