Codes VBA excel des boutons precédent et suiv

Dim ligneEnCours As Long
Private Sub Cmd_Préd_Click()
' je désir avoir les codes qui me permettrons de passer d'un enrégistrement à un autre
    If ligneEnCours > 2 Then
        ligneEnCours = ligneEnCours - 1
    Else
        ligneEnCours = 2
    End If
    TextBox1.Text = Cells(ligneEnCours , 1)
    TextBox2.Text = Cells(ligneEnCours , 2)
 End Sub

Private Sub Cmd_Suiv_Click()
' je désir avoir les codes qui me permettrons de passer d'un enrégistrement à un autre
    If Cells(ligneEnCours + 1, 1) <> "" Then
            ligneEnCours = ligneEnCours + 1
    End If
    TextBox1.Text = Cells(ligneEnCours , 1)
    TextBox2.Text = Cells(ligneEnCours , 2)
End Sub