Affecter Variable (Selon Combobox) à Field pour Autofiltre

Bonjour,

Petit questionnement, je souhaiterais affecter une variable sur le numéro de colonne de mon Autofiltre selon données séléctionnée dans la ComboBox.

Dans le Code Userform, actuellement, j'ai ça :

_______________________________________________________________

Private Sub Userform_Initialize()

ColonneFiltre1.Column() = Range("A1:C1").Value 'Liste de la combobox

End Sub

Private Sub BtnSésameOuvreToi_Click()

Dim K As Long

For K = 1 To Sheets.Count

Worksheets(K).Range("A1").AutoFilter Field:=1

Worksheets(K).Range("A1").AutoFilter Field:=1, Criteria1:=Array( _

N°Contrat1, N°Contrat2, N°Contrat3, N°Contrat4, N°Contrat5), Operator:=xlFilterValues

Next K

Unload SaisirFiltres

'Filtre colonne1 de l'ensemble des feuilles, les données entrées dans les textbox 1-5

End Sub

Comme vous pouvez le voir, la colonne où s'effectue le filtre est la 1 (Colonne A)

Sur mon fichier (Ci-joint), dans le Userform, je récupère dans la ComboBox les titres de mes différentes colonnes et j'aimerais que selon le titre choisi, Field = "Colonne du titre séléctionné".

J'espère être assez clair dans mon explication, une petite idée?

pour info,

J'ai fait une nouvelle tentative en me servant de J de cette manière :

Sub Userform_Initialize()

Dim J As Integer

    For J = 1 To 3

        ColonneFiltre1.AddItem Range(Cells(1, J), Cells(1, J))
    Next J

End Sub
____________________________________________________________________________________________

Sub BtnSésameOuvreToi_Click()

Dim K As Integer

For K = 1 To Sheets.Count

        Worksheets(K).Range("A1").AutoFilter Field:=J
        Worksheets(K).Range("A1").AutoFilter Field:=J, Criteria1:=Array( _
            N°Contrat1, N°Contrat2, N°Contrat3, N°Contrat4, N°Contrat5), Operator:=xlFilterValues

    Next K

    Unload SaisirFiltres

End Sub

Malheureusement il n'accepte pas le Field:=J est-ce parce que la variable est déclarée dans un autre Sub () ?