Simplifier un groupage de cellules

Salut, j'ai ce style de code a quelques endroits, pourrais-ton reduire en employant une espece de boucle?

TheText = Cells(8, 134) & Cells(8, 135) & Cells(8, 136) & Cells(8, 137) & Cells(8, 138) & Cells(8, 139) & Cells(8, 140) & Cells(8, 141) & Cells(8, 142) & Cells(8, 143) & Cells(8, 144) & Cells(8, 145) & Cells(8, 146) & Cells(8, 147) & Cells(8, 148) & Cells(8, 149) & Cells(8, 150) & Cells(8, 151) & Cells(8, 152) & Cells(8, 153)

Merci!

Hello Capucin, Forum,

Essaie cette boucle

    Dim i As Long
    Dim TheText As String

    For i = 134 To 153
        TheText = TheText & Cells(8, i).Value
    Next i

    MsgBox TheText

c'est tout a fait ce que j'avais besoin!

Merci Hulk!