VBA modifier valeure d'un label avec un Scrollbar

Bonjour le forum,

j'ai un petit problème, j'aimerais changer la valeure d'un label de mon Userform avec un Scrollbar. Pour ceci j'utilise le code suivant :
Private Sub UserForm_Initialize()
With ScrollBar1
.Min = 0 'Valeur mini
.Max = 100 'Valeur maxi

'Spécifie la distance de déplacement intervenant lorsque l'utilisateur
'clique entre le curseur de défilement et la flèche de défilement.
.LargeChange = 10

'Spécifie le déplacement se produisant lorsque l'utilisateur clique sur
'les flèches de défilement dans le contrôle ScrollBar
'(La valeur par défaut = 1)
.SmallChange = 5
End With
End Sub


Private Sub ScrollBar1_Change()
Label1 = ScrollBar1.Value
End Sub


(trouvé ici sur un site concurent Utiliser les contrles dans un UserForm, en VBA Excel)

Cela fonctionne très bien, seul hic : lorsque je met plusieurs contrôles comme celui ci sur le même Userform plus rien ne fonctionne. Pourquoi, et comment régler ce problème ?

Merci d'avance !