Tablecherche

[ABDOU]

Bonjour à tous,
Profitant de cette malheureuse période de confinement, j'essaye de mettre à jour mes habitudes de développement que j'ai délaissé depuis quelques temps pour causes de manque de temps, je me trouve bloquer avec un code que je n'arrive pas à trouver la réponse escomptée. J'ai voulu fusionner les colonnes d'une table en fonction du mois affiché dans chaque ligne. Le résultat du code donne une fusion total de la colonne "mois" bien qu'il existe plusieurs mois différents.
Merci pour votre aide.

TableSupprimeTout(Table1)
j,cp,res    sont des entiers
tot est une chaîne
ch   est une chaîne
dDhjour est une Date=PremierJourDeLaSemaine(SAI_Date)
masemaine est une Date = dDhjour
monmois est une Date = (SAI_Date)
rescherche est un entier
x est un entier
Sais_Fic = ""
POUR i=1 À SAI_Entier1
    dDhjour..Jour+=7
    TableAjouteLigne(Table1,dDhjour..Mois,NuméroDeMoisVersLettre(dDhjour..Mois),NuméroDeSemaine(dDhjour),dDhjour)
    FIN
j    =1
cp    = TableOccurrence(Table1)
TANTQUE j <= cp
    ch = Table1.Colonne2[j]
    POUR TOUTE LIGNE DE Table1
        
    
        SI Table1.Colonne2 = ch ALORS
            
        FIN
    FIN
    POUR TOUTE LIGNE DE Table1
        res = TableCherche(Colonne1,ch,Vrai,1)
        SI res = -1 ALORS
            Colonne2[j]..Fusion = fusionLigneSuivante
                Trace(ch,j,Colonne1)        
        FIN   
    FIN
    tot = ""
    j++
FIN