Utiliser deux combobox pour animer un graphique (VBA)

[rascsax]

Bonjour à tous,

Je me permets de faire appel à vos lumières.
Je souhaiterais lier deux combobox à un graphique avec l'objectif de pourvoir modifier ce dernier en fonction d'une valeur de début et une valeur de fin (sur l'axe des abscisses).

Dans mon Workbook, j'ai tout d'abord affecté à mes deux combobox une liste de valeurs (numéro de semaine).
Private Sub Workbook_Open()
With Sheets("Analyse")
.ComboBox1.List = Sheets("etb1").Range("A14:A103").Value
.ComboBox2.List = Sheets("etb1").Range("A14:A103").Value
End With
End Sub

Jusqu'ici tout va bien ...

Le problème arrive lorsque je veux affecter à l'axe en abscisse de mon graphique les valeurs des deux combobox.

Private Sub ComboBox1_Change()
Dim ch As ChartObject
For Each ch In ActiveWorkbook.ActiveSheet.ChartObjects
With ch.Chart.Axes(xlCategory)
.MinimumScale = ComboBox1.Value
End With
Next
End Sub

Private Sub ComboBox2_Change()
Dim ch As ChartObject
For Each ch In ActiveWorkbook.ActiveSheet.ChartObjects
With ch.Chart.Axes(xlCategory)
Var = .MaximumScale
.MaximumScale = ComboBox2.Value
End With
Next
End Sub

Visual Basic me souligne les phrases suivantes :
.MinimumScale = ComboBox1.Value
.MaximumScale = ComboBox2.Value
et m'indique une erreur d’exécution

J'ai bien compris que l'erreur était probablement dans ces phrases mais je ne comprends pas pourquoi.
J'ai trouvé des forums ou tutoriels sur ce sujet mais je n'arrive pas à résoudre ce problème.
En vous remerciant par avance de votre précieuse aide.
Je reste disponible pour toute information supplémentaire
A très bientôt
Pascal