[RESOLU] : Aidez moi a mettre un code

Private Sub SpinButton1_Change()
Dim i As Variant, c As Range
TextBox36 = SpinButton1
i = Application.Match(SpinButton1, [A:A], 0)
If IsNumeric(i) Then Set c = Cells(i, 1)
For i = 1 To 35
  If c Is Nothing Then Me("TextBox" & i) = "" Else _
    Me("TextBox" & i) = c(1 + (i - 1) Mod 5, 1 + Int((i - 1) / 5))
Next
End Sub

Private Sub SpinButton1_Change()
Dim i As Variant, c As Range
TextBox36 = SpinButton1
i = Application.Match(SpinButton1, [Tableau].Columns(1), 0)
If IsNumeric(i) Then Set c = [Tableau].Cells(i, 1)
For i = 1 To 35
  If c Is Nothing Then Me("TextBox" & i) = "" Else _
    Me("TextBox" & i) = c(1 + (i - 1) Mod 5, 1 + Int((i - 1) / 5))
Next
End Sub

Private Sub SpinButton1_Change()
Dim i As Variant, c As Range
TextBox36 = SpinButton1
i = Application.Match(5 * SpinButton1 - 4, [Tableau].Columns(1), 0)
If IsNumeric(i) Then Set c = [Tableau].Cells(i, 1)
For i = 1 To 35
  If c Is Nothing Then Me("TextBox" & i) = "" Else _
    Me("TextBox" & i) = c(1 + (i - 1) Mod 5, 1 + Int((i - 1) / 5))
Next
End Sub

Private Sub UserForm_Initialize()
SpinButton1.Min = 0
SpinButton1.Max = Int([Tableau].Rows.Count / 5)
SpinButton1 = 1
SpinButton1_Change
End Sub

SpinButton1.Max = Application.RoundUp(Application.Max([Tableau].Columns(1)) / 5, 0)