Récupérer le nom d'un champs / colonne en fonction Access

Bonjour.
J'ai une table qui contient plusieurs champs de prix. J'ai crée une première fonction qui affiche le prix minimum de ces champs. Une 2ème fonction récupère le nom du champs où se trouve le minimum. Pour l'nstant, je rentre en dur le nom des champs dans la 2ème fonction mais j'aimerais que ça soit fait autrement. Je veux récupérer le nom du champs et le stocker dans une variable mais je n'arrive pas à le faire. Est-ce que quelqu'un pourrait m'aider, S.V.P.

	Société A	Société B	Société C	Société D	Prix Min	Société Min
Opération 1	5 ¤	7 ¤	4 ¤	1 ¤	1 ¤	Société D
Opération 2	22 ¤	48 ¤	54 ¤	17 ¤	17 ¤	Société D
Opération 3	13 ¤	18 ¤	22 ¤	23 ¤	13 ¤	Société A
Opération 4	109 ¤	108 ¤	209 ¤	219 ¤	108 ¤	Société B

Voici la fonction que je veux modifier (en rouge --> je veux récupérer les noms des colonnes et ne pas les rentrer en dur):

Public FunctionChampsMin(ParamArray LesVariables() As Variant)

 

Dim intVar As Integer

Dim varMinTab As Double

Dim i, j As Integer

Dim TabNoms

 

TabNoms = Null

TabNoms = Array("Société 1", " Société 2", " Société 3", "Société 4", " Société 5", " Société 6", " Société 7", " Société 8", " Société 9")

 

varMinTab = LesVariables(0)

i = 0

j = 0

For intVar = 1 To UBound(LesVariables())

 

    If LesVariables(intVar) = 0 Or LesVariables(intVar) > varMinTab Then

        j = j + 1

    End If

   

        If LesVariables(intVar) < varMinTab And LesVariables(intVar) <> 0 Then

            i = i + j + 1

            varMinTab = LesVariables(intVar)

            j = 0

        End If

       

Next intVar

 

ChampsMin = TabNoms(i)

End Function