Macro pour concatener 2 colonnes

Il y a différentes manières de concatener 2 colonnes. On peut distinguer la concaténation "multiplicative" et la concaténation "additive".

Macro pour concaténation "multiplicative"

La macro VBA

Sub concatenercol()

Dim c As Range, d As Range 'Variables

For Each c In Range("A1:A2") 'Colonne 1
For Each d In Range("B1:B3") 'Colonne 2
ActiveCell.Offset(0, 0).FormulaR1C1 = _
c & d
ActiveCell.Offset(1, 0).Select
Next d
Next c

End Sub

Les données du tableau

	A	B	C	D	E
1	A	D
2	B	E
3		F

Le résultat

	A	B	C	D
1	A	D		AD
2	B	E		AE
3	C	F		AF
4				BD
5				BE
6				BF