Tableau access/excel prob ds mon code vba

Bonjour, j'essaie de générer un tableau sous excel a partir de données sous access.
J'ai donc 3 champs (semaine, tache, Travail_effectuer) que j'ai filtrer grace a une requete et j'ai créer un formulaire d'apres cete requete ou j'affiche tous les enregistrements.
J'ai fait aussi un bouton que j'ai programmer pour générer un tableau sous excel en fonction de ces 3chamsp.
Concretement j'arrive a créer un tableau sous excel mé j'ai un probleme au niveau d données.
En fait pour un même champ plusieurs valeur doivent être inserer sur la même ligne d'un classeur et que la boucle le fasse pour tous les enregistrement dont des données sont existantes....
je m'explique j'obtien le tableau créer sous excel :
(de la forme semaine
tache effectuer )

J'obtien ceci : semaine1 semaine15 32
entretien UPS oui
entretien UPS oui
changement "" oui

et je voudrais : 1 15 32
entretie, UPS oui oui
changement "" oui
(je ne veux pas de dédoublement de valeur)

La boucle de mon code est la suivante :
DoCmd.GoToRecord , , acLast
Cmpt = Forms![MaTable].Recordset.RecordCount
DoCmd.GoToRecord , , acFirst
For Boucle = 1 To Cmpt
xlRange.Cells((Boucle + 1), 1).Value = Forms![MaTable].[Tache]
DoCmd.GoToRecord , , acNext
Next Boucle
DoCmd.GoToRecord , , acFirst
For Boucle = 1 To Cmpt
xlRange.Cells(1, (Boucle + 1)).Value = Forms![MaTable].[Semaine]
DoCmd.GoToRecord , , acNext
Next Boucle
DoCmd.GoToRecord , , acFirst
For Boucle = 1 To Cmpt
xlRange.Cells((Boucle + 1), (Boucle + 1)).Value = Forms![MaTable].[Travail_Effectuer]
DoCmd.GoToRecord , , acNext
Next Boucle
DoCmd.GoToRecord , , acFirst

Quelqu'un peut-il m'aider a corriger(pluto ameliorer) mon code (ma boucle) pour que j'arrive au résultat souhaiter?

Merci d'avance