Bonjour, je ne m'y connais pas du tout en VBA et j'ai une macro Excel a modifier. Un des problèmes qui se pose à moi est le suivant :
J'ai 4 colonnes (B,C,D et E) qui contiennent un nom et les trois prénoms d'un individu; je dois concaténer ces 4 champs
et j'ai le code suivant(déjà existant avant ma modif) :


Sub TRAITNOMPRENOMS()
Application.StatusBar = "CREATION DE LA DONNEE NOM PRENOMS"

NumColonne = 2

Columns(NumColonne).Insert Shift:=xlToRight

' Cells(1, NumColonne) = "=CONCATENER(LC(1);"" "";LC(2);"" "";LC(3);"" "";LC(4))"
Cells(1, NumColonne) = Cells(1, NumColonne) + Cells(1, NumColonne + 1) + " " + Cells(1, NumColonne + 2) + " " + Cells(1, NumColonne + 3)


NbCopFin = 0
NbSupFin = 4

UTILCOPIERCOLLERSUPPRIMER
End Sub

.

.

.

.

Sub UTILCOPIERCOLLERSUPPRIMER()



'copie vers le bas
Range(Cells(1, NumColonne), Cells(LignesTotal, NumColonne + NbCopFin)).Select
Selection.FillDown

'suppression des formules
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
'
'Suppression des colonnes origines des données
Range(Cells(1, NumColonne + 1), Cells(LignesTotal, NumColonne + NbSupFin)).Delete Shift:=xlToLeft

End Sub


Le soucis est qu'il me concatène bien les champs pour la première occurrence mais il fait un copier coller vers le bas et je perd donc toutes les données des individus suivants.
Quelqu'un pourrait il m'aider afin de résoudre ce problème?
La question est assez mal formulé mais je ne vois pas comment faire plus clair, désolé