Sub Bouton1_QuandClic()
Dim mycells As Range
Dim i As Integer, j As Integer
Set mycells = Application.InputBox(prompt:='Sélectionnez la plage de cellules.', _
Title:='Plage de cellules', Left:=500, Top:=300, Type:=8)
j = mycells(1).Row 'ici on récupère le numéro de la premiere ligne de la plage
For i = 1 To mycells.Count Step 3 'on boucle sur les éléments de la plage de 3 en 3
'on concatène les 3 éléments
Range('a' & j) = mycells(i) & Chr(10) & mycells(i + 1) & Chr(10) & mycells(i + 2)
j = j + 1
Next i
End Sub