RecordSet et transfert Excel sous condition

Bonjour,
HELP!! C'est la cata!! J'ai développé une procédure qui récupère les données d'un RecordSet1, les lance à travers une requete paramétré et ensuite les copies dans une fichier Excel, si une colonne d'un RecordSet change, alors j'écris dans un autre fichier, sinon je continue dans le meme fichier(j'ajoute une feuille). Le problème c'est dans ma boucle dont sa variable est Tableau. Je pense c'est de la qui vient le problème !! Help

Voici ma procédure (je l'ai modifié avec l'application Access, elle execute une procédure SQL Server, mais c'est le meme principe)

On Error Resume Next

Dim db As DAO.Database, qdf_source As DAO.QueryDef, rs_source As DAO.Recordset

Dim qdf_resultat As DAO.QueryDef, rs_resultat As DAO.Recordset
Dim xls As Excel.Application
Dim i As Integer, j As Integer, k As Integer, l As Integer
Dim val1 As String

Set db = CurrentDb
Set qdf_source = db.QueryDefs("REQUETE_RECHERCHE_CLIENT")
Set rs_source = qdf_source.OpenRecordset
rs_source.MoveFirst 'par précaution pointer au début

Dim REF() As String
Dim a As Integer, b As Integer, c As Integer

a = rs_source.RecordCount
ReDim REF(a)

For a = 0 To rs_source.RecordCount - 1

If Not (rs_source.EOF) Then

val1 = rs_source.Fields(1)
REF(a) = rs_source.Fields(0)

Set qdf_resultat = db.QueryDefs("P_Client")
qdf_resultat.Parameters("Nom_Client") = val1
Set rs_resultat = qdf_resultat.OpenRecordset

'Procédure Envoie recodset
Dim createExcel As New Excel.Application
Dim Wbook As Excel.Workbook
Dim Wsheet As Excel.Worksheet
Set Wbook = createExcel.Workbooks.Add
Set Wsheet = Wbook.Worksheets(1)
For i = 0 To rs_resultat.Fields.Count - 1

Wsheet.Cells(1, i + 1).Value = rs_resultat.Fields(i).Name
Wsheet.Cells.Range("A1:AQ1").Interior.ColorIndex = 36
Next i

If (rs_resultat.RecordCount > 0) Then
rs_resultat.MoveFirst
For i = 0 To rs_resultat.Fields.Count - 1
For j = 0 To rs_resultat.Fields.Count - 1
Wsheet.Cells(i + 2, j + 1).Value = rs_resultat(j).Value
Next j
rs_resultat.MoveNext
Next i
End If

rs_source.MoveNext
Set Wsheet = Nothing

REF(a + 1) = rs_source.Fields(0)

ElseIf (Not (rs_source.EOF) & REF(a + 1) = REF(a)) Then 'ECRITURE DANS LE MEME FICHIER
val1 = rs_source.Fields(1)
Set qdf_resultat = db.QueryDefs("P_Client")
qdf_resultat.Parameters("Nom_Client") = val1
Set rs_resultat = qdf_resultat.OpenRecordset

Set Wsheet = Wbook.Worksheets.Add
For i = 0 To rs_resultat.Fields.Count - 1

Wsheet.Cells(1, i + 1).Value = rs_resultat.Fields(i).Name
Wsheet.Cells.Range("A1:AQ1").Interior.ColorIndex = 36
Next i

If (rs_resultat.RecordCount > 0) Then
rs_resultat.MoveFirst
For i = 0 To rs_resultat.Fields.Count - 1
For j = 0 To rs_resultat.Fields.Count - 1
Wsheet.Cells(i + 2, j + 1).Value = rs_resultat(j).Value
Next j
rs_resultat.MoveNext
Next i
End If

Wbook.SaveAs Filename:="C:\Essaies_Files\REPONSE" & val1 & ".xls"
Wbook.Close True
Set createExcel = Nothing
Set Wsheet = Nothing
rs_source.MoveNext

REF(a + 2) = rs_source.Fields(0)

ElseIf (Not (rs_source.EOF) & REF(a + 2) <> REF(a + 1)) Then

ElseIf rs_source.EOF Then

Exit For
End If

Next a

qdf_resultat.Close
rs_resultat.Close

qdf_source.Close
rs_source.Close

Une idée??

Merci d'avance

Configuration: Windows XP
Firefox 3.0.3