La cellule liée d'un scrollbar n'effectue pas

Voici la partie du code

If croix <= 3 Then TypeFiliere = 1
If croix = 4 Then TypeFiliere = 2
If croix = 5 Then TypeFiliere = 3
If croix = 6 Then TypeFiliere = 4
If croix = 7 Then TypeFiliere = 5

ActiveSheet.Shapes.Range(Array("Scroll Bar 37")).Select
With Selection
.Value = TypeFiliere
.Min = 1
.Max = 5
.SmallChange = 1
.LargeChange = 10
.LinkedCell = c.Cells(9, 1)
.Display3DShading = True
End With

Pouvez vous m'aider. je dois rentrer la liaison en mode manuel ce qui n'est pas tres pratique