Private Sub SpinButton109_Change() 'page 1 : groupe affecté à référence 1
'répété pour les spinbutton109 à 116
Select Case SpinButton109.Value
Case Is = 1
Me.TextBox109 = ("A")
Case Is = 2
Me.TextBox109 = ("B")
Case Is = 3
Me.TextBox109 = ("C")
Case Is = 4
Me.TextBox109 = ("D")
Case Is = 5
Me.TextBox109 = ("E")
Case Is = 6
Me.TextBox109 = ("F")
Case Is = 7
Me.TextBox109 = ("G")
Case Is = 8
Me.TextBox109 = ("H")
End Select
End Sub