[VBA ACCESS] COPIE D'UNE FEUILLE EXCEL

Bonjour,
Je developpe sous access en vba.
Je dispose d'un classeur excel dans lequel j'ai une feuille excel nommée "Matrice".
C'est un modele.
Je voudrai copier cette feuille en +ieurs exemplaire dans le même classeur et que ces feuilles se place apres la feuille "Matrice".
J'ai trouvé une methode qui permet de copier la voici :
appExcel.Sheets("Matrice").Copy After:=appExcel.Sheets(k)

Mon souci c'est que ca plante. Ca me dit l'indice n'appartient pas à la selection.

Voici la partie de mon code :

req10 = "TEMP.TELEACT FROM TEMP ORDER BY TEMP.TELEACT;"
Set rec = db.OpenRecordset(req10)


'################## OUVERTURE DU FICHIER MATRICE.XLS ##########################################
'Déclaration des variables
Dim appExcel As Excel.Application 'Application Excel
Dim wbExcel As Excel.Workbook 'Classeur Excel
Dim Mafeuille As Excel.Worksheet 'Feuille Excel
'Ouverture de l'application
Set appExcel = CreateObject("Excel.Application")
'Ouverture d'un fichier Excel
Set wbExcel = appExcel.Workbooks.Open("Y:\ACCESS\Matrice.xls")
'Set appExcel = GetObject("Y:\ACCESS\Matrice.xls")
appExcel.Visible = True

'################### FIN CREATION ################################################

'############################# DEBUT DE LA REQUETE ################################


i = 1
k = 1
Do While Not rec.EOF
TELEACT = rec.Fields(1).Value

If FeuilleExiste(TELEACT) = False Then
appExcel.Sheets("Matrice").Copy After:=appExcel.Sheets(k)
ActiveSheet.Name = TELEACT

appExcel.Sheets(TELEACT).Select

k = k + 1
Else
.......


Je pense que c'est ma variable k qui plante.
A l'aide svp.
Merci.