Requete pour que le montant change de colonne selon la date

Bonjour,

Dans mon fichier Excel, je vais rechercher des données dans des fichiers DBF via une liaison ADODB. Ensuite, je fais une requête pour afficher une une partie des éléments dans un tableau :

Debiteurs_ouverts = "SELECT societe , nom, prenom, nodoc, ds_text , date1, " & _
            " (date1 + echean1) as Delai, montant, pmt, (montant - pmt) AS Solde" & _
            " FROM Document " & _
            " LEFT JOIN  doc_clas ON classif = c_numero " & _
            " LEFT JOIN  adresses ON adr1 = numero" & _
            " WHERE  type=20 AND(period <> 1) AND paye <>1 " & _
            " AND date1  <= sDateFin"

Set rs = New ADODB.Recordset
rs.Open Debiteurs_ouverts, cN

With Sheets("Débiteurs ouverts")
    .Cells.Clear
    For j = 0 To rs.Fields.count - 1
        .Range("A3").Offset(0, j).Value = rs.Fields(j).Name
    Next j
    .Range("A4").CopyFromRecordset rs
    .Cells.EntireColumn.AutoFit
End With

Mais j'aimerais que le résultat soit le suivant :

Société, Nom, Prénom, Date, Délai, Montant à recevoir à 10 jours, Montant à recevoir à 20 jours, Montant à recevoir à 30 jours

Donc le montant doit changer de colonne en fonction de la date de la facture et de la date du jour.

Des pistes à me donner ?

Merci beaucoup pour votre aide