Je n'arrive pas à sélectionner la feuille d'à-côté

[beegees]

Bonjour tout le monde,

J'ai ce code :

 Dim i As Integer
    Dim j As Integer
    i = 1
    j = 1
    For i = 1 To 24
        If ActiveCell.Interior.ColorIndex <> -4142 Then
            If ActiveCell.Value <> "" Then
                Tableau_Cotes(j) = ActiveCell.Value
                j = j + 1
            End If
        End If
        ActiveCell.Offset(0, 1).Select
    Next i
    
    Sheets("RN").Select

Arrivé à cette ligne :

 Sheets("RN").Select

J'obtiens ce message d'erreur :

L'indice n'appartient pas à la sélection

Tout est pourtant dans le même classeur.

Je ne comprends pas.

Merci d'avance pour l'aide.
beegees

 

[CHALET53]

Re : Je n'arrive pas à sélectionner la feuille d'à-côté

Bonjour,

Avec ce code, j'arrive à ouvrir la feuille RN.
Est-ce qu'elle porte bien ce nom ? N'y a -t-il pas de blanc (par hasard) ?

A+