Boucle sue une ligne donné

bonjour

comment réduire ce code pour boucler sur 48 cellule de AH2 a CC2

Me.Qt1.Value = Sheets(8).Range("AH2").Value
Me.Qt2.Value = Sheets(8).Range("AI2").Value
Me.Qt3.Value = Sheets(8).Range("AJ2").Value
Me.Qt4.Value = Sheets(8).Range("AK2").Value
Me.Qt5.Value = Sheets(8).Range("AL2").Value
Me.Qt6.Value = Sheets(8).Range("AM2").Value
Me.Qt7.Value = Sheets(8).Range("AN2").Value
Me.Qt8.Value = Sheets(8).Range("AO2").Value
Me.Qt9.Value = Sheets(8).Range("AP2").Value
Me.Qt10.Value = Sheets(8).Range("AQ2").Value
Me.Qt11.Value = Sheets(8).Range("AR2").Value
.
.

Me.QT48.value=Sheets(8).Range("CC2").Value

amicalement

Bonjour,

    With Worksheets(8)
        For i = 1 To 48
            Me.Controls("Qt" & i).Value = .Cells(2, i + 33)
        Next i
    End With

Cordialement.

bonjour MFerrend

parfait pour ta réponse toujours aussi réactif sur le forum

merci beaucoup