Private Sub CommandButton1_Click()
AfficheTextBox 1
End Sub
Private Sub CommandButton2_Click()
AfficheTextBox 2
End Sub
Private Sub CommandButton3_Click()
AfficheTextBox 3
End Sub
Private Sub CommandButton4_Click()
AfficheTextBox 4
End Sub
Sub AfficheTextBox(Num)
TextBox1.Value = Cells(Num + 1, 1).Value
TextBox2.Value = Cells(Num + 1, 2).Value
TextBox3.Value = Cells(Num + 1, 3).Value
TextBox4.Value = Cells(Num + 1, 4).Value
End Sub