Dim objet_lié As OLEObject
Dim ctrl As Object
For Each objet_lié In Sheets("ACCUEIL").OLEObjects
Set ctrl = objet_lié.Object
If TypeOf ctrl Is MSForms.ScrollBar Then ctrl.Value = 3
Next objet_lié
Si le code est lié à la feuille ACCUEIL
Dim objet_lié As OLEObject
Dim ctrl As Object
For Each objet_lié In Me.OLEObjects
Set ctrl = objet_lié.Object
If TypeOf ctrl Is MSForms.ScrollBar Then ctrl.Value = 3
Next objet_lié