VBA:Comment passer une variable dans une fonction private sub

Bonjour,

J'ai créé une variable globale "ClasseChoisie" pour l'ensemble de mon classeur.
En feuil1, j'ai créé une ComboBox dont je récupère l'index du choix dans "ClasseChoisie".

En feuil2, j'ai créé une autre ComboBox et dans sa fonction change ci dessous:

Private Sub ComboBox1_Change()
Dim Choix As Variant

Choix = ComboBox1.ListIndex

Select Case Choix
Case 0
ActiveWindow.ScrollRow = 4
Case 1
ActiveWindow.ScrollRow = 8
End Select
End

Je souhaite qu'à l'ouverture de la feuil2 grâce a la fonction ComboBox1 ci dessous:

Private Sub Worksheet_Activate()
'Afficher la classe choisie
ComboBox1_Change() = ClasseChoisie
End Sub

que la variable "choix" prenne la valeur de la variable globale "ClasseChoisie".

Quelqu'un peut-il m'indiquer comment faire SVP, ?

Merci