Voici un exemple de ce que tu peux faire:
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

eric