Aide excel VBA - Copier un onglet

Sub Copie_Modele()
Dim c As Variant
Dim maliste As Range
Set maliste = Sheets("Feuil2").Range("C2:C10")
For Each c In maliste

    Sheets("Modele").Copy , Before:=Sheets("Modele")
    ActiveSheet.Name = c.Value
Next
End Sub

Sub Copie_Modele()


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

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


For lin = 31 To 500

ActiveWorkbook.Sheets("Tableau de Synthèse").Activate

If Cells(lin, 1) = "X" Then
NomOnglet = Cells(lin, 3).Value
Sheets("Modele").Copy , After:=Sheets("Modele")
ActiveSheet.Name = NomOnglet
ReDim tabloNomOnglet(I)
tabloNomOnglet(I) = NomOnglet
I = I + 1

End If

Next lin

' pour la suite
For I = 0 To UBound(tabloNomOnglet)
Sheets(tabloNomOnglet(I)).Select
    'With ActiveSheet
    
    'End With
Next

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 Preserve tabloNomOnglet(I)
tabloNomOnglet(I) = NomOnglet
I = I + 1

End If

Next lin

'remplissage des onglets

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

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