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