Private Sub ScrollBar1_Change()
ScrollBar1.Max = Sheets("feuil1").Range("a65000").End(xlUp).Row + 1
TextBox1.Value = Range("a" & ScrollBar1.Value).Value
TextBox2.Value = Range("b" & ScrollBar1.Value).Value
TextBox3.Value = Range("c" & ScrollBar1.Value).Value
Pointeur 'appel de la procédure
End Sub