Regrouper deux colonnes (VBA)

Bonsoir

Pourquoi une macro pour si peu alors qu'il suffit de mettre en A1 la formule= I1 &" " & j1 et de l'étirer vers le bas
Ensuite copier la colonne A et la coller à la même place par collage spécial Valeurs uniquement (pour supprimer le lien par formule) et enfin effacer les colonnes I et J

Cdlmnt
Via

Bonsoir,
VBA inutile à mon goût !

Une autre alternative :

en A1 (à étirer vers le bas, si besoin) :

=CONCATENER($I1;" ";$J1)

Re,

En ce cas :

Sub adresse()
 ligne = Sheets("Feuil3").Columns(9).Find("*", , , , xlByColumns, xlPrevious).Row ' dernièreligne remplie
 For n = 4 To ligne ' boucle sur les lignes de feuil3 et copie la concatenation en col A
Sheets("Feuil3").Range("A" & n) = Sheets("Feuil3").Range("I" & n) & " " & Sheets("Feuil3").Range("J" & n)
 Next
 Sheets("Feuil3").Range("I4:J" & ligne).ClearContents 'efface col I et J
End Sub

Cdlmnt
Via

Bonjour zizou, yoyo, via

Comme tu as peut-^tre plus de feuilles que "1" et feuil3, une macro vaut peut-^tre le coup de traiter l'ensemble d'un seul coup

https://mon-partage.fr/f/xljhIRFm/

tu dis...

Bonjour

Effectivement § désolé

https://mon-partage.fr/f/36w4iUIj/

Bonjour michel_m
Aucun souci, vraiment merci merci et c'est sincère.
Heureusement, que vous êtes là ainsi que ce forum.
ça fonctionne impect. Ecellente journée.
Cordialement,
zizou

Bonjour,
Merci beaucoup pour vos réponses, je cherche une adaptation en VBA, pour l'automatisation du fichier via le bouton.
De plus, c'est une tache répétitive.
Cordialement,
zizou