Regrouper deux colonnes (VBA)

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

Effectivement § désolé

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

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...

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,
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

Bonsoir,
VBA inutile à mon goût !

Une autre alternative :

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

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

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