Sub AddOrConcatRemoveDupli() ' Créé par RyuAutodidacte
Dim Sep$, Crit, Col, y As Byte, cLig As New Collection, C As Byte, L&, R&, VA, VR, x
Sep = "|" ' Le séparateur
Crit = Array(1) ' Indiquer la ou les colonnes de critères
'-------------------------
Col = Array(2, 3, 4) 'Indiquer les colonnes concernées par les sommes ou les concaténations
Oper = Array("", "", "") 'Pour chaque colonne de Col concernée, mettre "" pour additionner ou mettre caractère de concaténation (ex. : "|" ou bien vbNewLine, etc…)...