Nommer cellule boucle EXCEL VBA

Bonjour à tous,

Je suis débutante en programmation vba et j'aurais besoin d'un coup de main.

J'ai dans mon classeur une ligne avec des noms : en A1, nom1, en A2, nom 2, etc.

Je souhaiterais dans une boucle récupérer ces noms pour m'en servir notamment de titre de graphique.

J'ai donc écrit (je ne mets qu'un petit bout du code) :

Sub montest()
cpt = 0
nb_metaux = 6
Do
Set nom_metal = Cells(1, 1 + cpt)
MsgBox nom_metal 'pour vérifier
'etc : suite du code pour mon graph

cpt = cpt + 1
loop while cpt < nb_metaux + 1
End Sub

Ca marche très bien pour le premier graphique, mais pas pour les suivants quand je boucle.
J'ai même rajouté de quoi effacer le nom à la fin de la boucle mais ça ne fonctionne toujours pas... :(
Si quelqu'un à le moindre commentaire je suis preneuse...

Merci d'avance.