Comment connaitre le numéro de field autofilter

Sub Macro1()
Dim NC As Integer 'déclare la variable NC (Numéro de Colonne)
Dim NCV As Integer 'déclare la variable NC (Nombre de Colonnes Vides)
Dim NCH As Integer 'déclare la variable NCH (Numéro du CHamp)

NC = ActiveCell.Column 'définit le numéro de la colonne de la cellule active
NCV = Application.WorksheetFunction.CountBlank(Range(Cells(1, 1), Cells(1, NC))) 'compte combien de cellules vide dans la premièr ligne jusqu'à colonne NC
NCH = NC - NCV 'définit le numéro du champ NCH
End Sub

numChamp = sel.Column - [_FilterDataBase].Column + 1