Lien vers onglet et erreur d'éxecution 9

Bonjour,

J'ai un fichier qui disposent d'un onglet principal ("Calcul") avec un code dans les cellules A4 à A20.

A partir d'un onglet "Source" (base de donnée que j'importe chaque semaine), une macro crée un onglet pour chaque code de A4 à A20 (techniquement, la macro efface puis recréé les onglets).

Ce que je souhaite, c'est obtenir un lien entre les cellules A4 à A20 et l'onglet visé.

Voici les codes sur lequel je travaille :

Sub LienOnglet()

Dim i As Long
Dim Nbligne As Long
Dim CodeAgent As String

    Sheets("Calcul").Select
    i = ActiveCell.Row
    Nbligne = Range("A4").CurrentRegion.Rows.Count
    For i = Nbligne To 2 Step -1
    Cells(i, 1).Value = CodeAgent

    Sheets(CodeAgent).Select

    Next i

End Sub

et

Select Case cel

...

Case "A" & ActiveCell.Row
            'Lien vers onglet
            LienOnglet

End Select

et c'est sur la ligne de commande Sheets(CodeAgent).Select de la macro lienOnglet que j'ai une erreur d'éxecution '9' / L'indice n'appartient pas à la sélection."

Avez-vous une idée pour contourner le problème ?

D'avance merci.

-- Mer Déc 22, 2010 12:24 pm --

Pourquoi faire compliqué quand on peut faire simple :

à force de chercher voilà quelque chose qui marche :

...Case "A" & ActiveCell.Row
            'Lien vers onglet
            Sheets(Worksheets("Calcul").Cells(ActiveCell.Row, 1).Value).Select...

Tout simplement !

Merci shagshag, pour une fois que tu solutionnes un topic