VBA Excel - Erreur d'exécution 9

Bonjour à tous,

j'ai commencé la programmation VBA Ecel depuis peu et là je bloque sur une erreur d'exécution 9 (l'indice n'appartient pas à la sélection).

Mon programme copie des onglets en leur attribuant un nom qui dépend d'une cellule préalablement remplie. Ensuite il faut remplir qqs cellules des nouveaux onglets.

Voici la programmation :

Sub Copie_Modele()

Dim lin As Long
Dim maliste As Range
Dim NomOnglet As String

'délaration du tableau qui va stocker le nom des onglets créés

Dim tabloNomOnglet() As String 'le tableau
Dim I As Integer ' le compteur
I = 0

'Déclaration des variables à recopier

'Client
Dim col_tab_Client As Long, lin_tab_Client As Long, col_FA_Client As Long, lin_FA_Client As Long
col_tab_Client = 5
lin_tab_Client = 3
col_FA_Client = 5
lin_FA_Client = 2

For lin = 31 To 500

ThisWorkbook.Sheets(1).Activate

If Cells(lin, 1) = "X" Then

NomOnglet = Cells(lin, 3).Value
Sheets("Modele").Copy , Before:=Sheets("Modele")
ActiveSheet.Name = NomOnglet

ReDim tabloNomOnglet(I)
I = I + 1
tabloNomOnglet(I) = NomOnglet

End If

Next lin

'remplissage des onglets

For I = 0 To UBound(tabloNomOnglet)
Sheets(tabloNomOnglet(I)).Select ERREUR ICI

With ActiveSheet

'Nom du client
Cells(lin_FA_Client, col_FA_Client) = Worksheets(1).Cells(lin_tab_Client, col_tab_Client)

End With

Next I

End Sub

Quelqu'un a une idée de mon erreur?

Merci d'avance: