s = langue.Value 'bien sûr définir langue
Dim cel As Range, Liste(), n as Long
For Each cel In Sheets("Feuille" & s).Range("A1", Sheets("Feuille" & s).[A65536].End(xlUp))
If cel = ComboBox1 Then
ReDim Preserve Liste(n)
With Application
Liste(n) = .Trim(Join(.Transpose(.Transpose(cel.Offset(, 1).Resize(, 6))), " ")) 'colonnes B à G
End With
n = n + 1
End If
Next
TextBox1 = Join(Liste, vbLf)