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)

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

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