Créer un nom de champs par macro

bonjour,

je cherche à créer des nom de champs par macro en faisant une boucle sur un tableau de deux colonnes la première représente le nom du champs et la seconde contient l'adresse:

Barème_BBL_FTL_HU BBL!$H$6:$AI$11
Barème_BBL_FTL_IT BBL!$H$13:$AI$30
Barème_BBL_FTL_PL BBL!$H$32:$AI$43
Barème_BBL_FTL_RO BBL!$H$45:$AI$51
Barème_BBL_LTL_ES BBL!$H$53:$AI$104
Barème_BBL_LTL_PT BBL!$H$106:$AI$118
Barème_Dachser_LTL_AT Dachser!$H$6:$AI$100
Barème_Dachser_LTL_DE Dachser!$H$102:$AI$201
Barème_Dachser_LTL_FR Dachser!$H$203:$AI$302
Barème_Dimotrans_FTL_TR Dimotrans!$H$6:$AI$15
Barème_Dimotrans_LTL_GR Dimotrans!$H$17:$AI$23
Barème_Dimotrans_LTL_TR Dimotrans!$H$25:$AI$39


J'ai écris la macro suivante:

Sub MajNomChamp()
'
' Macro5 Macro
'
'

Dim compteur As Variant


Sheets("Tables").Select
Range("ak2:ak2").Select
compteur = Range(Selection, Selection.End(xlDown)).Count


For i = 1 To compteur

Cells(i + 1, 36 + 1).Select


nom = ActiveCell.Formula

Cells(i + 1, 36 + 2).Select

adresse = "=" & ActiveCell.Formula


ActiveWorkbook.Names.Add Name:=nom, RefersToR1C1:=adresse

Next

End Sub

Mais l'instruction : « ActiveWorkbook.Names.Add Name:=nom, RefersToR1C1:=adresse »
entre l'adresse avec des guillemets ce qui empêche le champs d'être reconnu par Excel.

Merci de votre aide.