Option Explicit
Option Base 1
Sub GroupeInfos()
Dim T As Variant
Dim T1()
Dim PlageDonn As Range
Dim Cpt As Long
Set PlageDonn = Range(Range("B8"), Range("J65536").End(xlUp))
T = PlageDonn.Value
ReDim T1(UBound(T, 1))
For Cpt = 1 To UBound(T)
T1(Cpt) = T(Cpt, 1) & Chr(10) & T(Cpt, 8) & Chr(10) & T(Cpt, 9)
Next Cpt
Range("B8").Resize(UBound(T), 1).Value = WorksheetFunction.Transpose(T1)
Columns("I:J").Delete Shift:=xlToLeft
End Sub