Concaténation de plusieurs cellules

Bonjour,

Voila je vous explique mon problème.

J'ai une feuille de mon classeur qui contient des informations diverse que je veux concaténer dans une seule celulle. Comme l'utilisateur choisi les colonnes à concaténer j'ai créer un template pour que l'utilisateur puisse entrer les colonnes qu'il désire concaténer.

Pour l'instant mon code ressemble à ça :

            ConcatLastRow = Range("CONCAT").Cells.Find("*", , , , xlByRows, xlPrevious).row
            
            i = 3
            While i <= derniereLigne
                For p = 1 To ConcatLastRow

                    Concat(p) = Range("CONCAT").Cells(3, p)

                    ID = Worksheets(ImportedSheetName).Calls(i, 1)
                    Morceau = Worksheets(STDName).Calls(i, Concat(p) + 1)

                    If Concat(p) <> 0 Then
                          Syntaxe = "=" & """" & ID & "_" & Morceau
                    End If
    
                Next p
            Wend

J'ai essayer de m'en sortir avec des forum mais je n'y arrive pas.

Pourriez vous m'aider?