Probleme d'affichage des reponses sql

Bonjour je travail sur une appli vba sur excel avec une base access.
J'ai un probleme pour la 'mise en page' de mes reponse sql:
J'ai un tableau comme ceci
NOM | N° CDE | NB HEURE | HEURES DIVERSE
nom1 cde1 nbh1 hd1
nom1 cde2 nbh2 hd1
nom2 cde1' nbh1' hd2

nom1 correspond au nom de la premiere personne
nom2 '' '' 2eme ''
cde1: premiere commande passé par nom1
cde2: 2eme commande passé par nom1
cde1' premiere commande passé par nom2
nbh represente le nombre passé sur chak commande
hd represente des heures diverse

enfait nom 1 et hd1 se repete a chaque ligne se ki rend le tableaux illisible et difficilement exploitable.
j'aurai donc voulu obtenir ceci

NOM | N° CDE | NB HEURE | HEURES DIVERSE
nom1 cde1 nbh1 hd1
cde2 nbh2
nom2 cde1' nbh1' hd2

Mais bon jss debutant en vba et j'y arrive pas vraiment

Voila le code ke j'ai ecrit:

sSQL = requete (la requete est super longue donc je la met pas. dites moi si vous la voulez)

Code:

---

1 2 3 4 5 6

Set rst = db.OpenRecordset(sSQL, dbOpenForwardOnly, dbReadOnly) Do While Not rst.EOF For i = 0 To rst.EOF Cells(i , 3) = (rst![nbhaffaire]) Next i Loop

---

J'espère que mes explication relativement bancales ont été somme toute assez claires ;)
Merci de m'aider svp

Essaie :

Code:

---

1 2 3 4 5 6

i=1 Do While Not rst.EOF If Not IsNull(rst("nbhaffaire")) Then Cells(i , 3) = rst("nbhaffaire") i=i+1 rst.MoveNext Loop

---