Probleme Programmation VBA

Bonjour,

Je suis étudiante en DUT STID notre professeur nous à demander de compiler un programme et nous somme bloqué car nous ne trouvons l'erreur, notre professeur étant absent nous ne pouvons pas avancer dans notre travail. Quelqu'un arrivera a trouver cette erreur ?

Le programme :

Sub nommerDesPlagesAuto()

Dim iNbreDeColonnes As Integer
Dim iNombreDeLignes As Integer
Dim iColonne As Integer
Dim iHauteurColonne As Integer
Dim strTitreColonne As String

Worksheets("dataset").Activate 'On se positionne sur le jeu de donnees
iNbreDeColonnes = Range("A1").End(xlToRight).Column 'On compte le nombre de colonnes du jeu de données
iNombreDeLignes = Range("A1").End(xlDown).Row 'On le nombre de lignes du jeu de données

iHauteurColonne = iNombreDeLignes - 1 'Hauteur d'une colonne sans le titre

For iColonne = 1 To iNbreDeColonnes 'De la colonne 1 à la dernière...
strTitreColonne = Cells(1, iColonne).Value 'Je récupère le titre de la colonne active
Range(Cells(2, iColonne), Cells(iNombreDeLignes, iColonne)).Name = strTitreColonne 'Je donne comme nom à la plage de valeurs le titre de la colonne active
Next iColonne


End Sub

Merci !