macro de recherche et concaténation

Bonjour,

j'ai un fichier excel qui comporte environ 3000 references ...

il se décompose grosso modo de la manière suivante: colonne A : n°ref, colonne B: libellé ....

Or, en colonne AK à AQ, dans les lignes qui suivent mes enregistrements de reférences, j'ai des infos à rattacher dans les lignes , mettons à la colonne AZ, en concaténant les colonnes AL à AQ dans la colonne AZ mais cette fois ci à la ligne correspondante à la référence ... AK étant le même numéro de référence que celui de la colonne A. Le probleme est que pour un même numéro de référence, je peux avoir de 0 à environ 10 remarques coller dans la même case de la colonne AZ ...


Concrètement de A1 à AJ2566 j'ai mes references, et de AK2567 à AQ3189 j'ai mes infos que j'aimerais rattacher ...



L'idée que j'avais est de faire une recherche de la valeur de la case A1 dans la colonne AK, puis si ca trouve quelquechose, ca me concatène la ligne correspondante dans la case AZ1, ca boucle tant que ca trouve une valeur égale à celle de A1 en prenant soin de me pas m'écraser ce qui a déjà été mi dedans dans la précédente boucle, puis ca passe à A2 et ainsi de suite ....


j'ai bien fait une pseudo macro mais elle ne marche pas et je suis complètement perdu apres tous les essais que j'ai fait:

Sub Macro1()

For i = 1 To 2600
Range("A" & i).Select
While Cells.Find(What:=ActiveCell.Value, After:=ActiveCell, LookIn:=xlValues, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate Is Not Null = True
Cells("AZ" & i).FormulaR1C1 = "=CONCATENATE("" Type: "",RC[+1],"" Date: "",RC[+2],"" Heure: "",RC[+3],"" Sujet: "",RC[+4]),"" Remarques: "",RC[+5]"
Wend
Next

End Sub


Merci pour l'aide la 🙁