Comment raccourcir ce code

bonjour a tous

j'ai ce code qui fonctionne mais il me semble bien long

y a t'il moyen de le raccourcir

    With Sheets("Tarif")
         TB1 = Feuil3.Range("A2") 
        TB2 = Feuil3.Range("A3")
        TB3 = Feuil3.Range("A4")
        TB4 = Feuil3.Range("A5")
        TB5 = Feuil3.Range("A6")
        TB6 = Feuil3.Range("A7")
        TB7 = Feuil3.Range("A8")
        TB8 = Feuil3.Range("A9")
        TB9 = Feuil3.Range("A10")
        TB10 = Feuil3.Range("A11")
        TB11 = Feuil3.Range("A12")
        TB12 = Feuil3.Range("A13")
        TB13 = Feuil3.Range("A14")
        TB14 = Feuil3.Range("A15")
        TB15 = Feuil3.Range("A16")
        TB16 = Feuil3.Range("A17")
        TB17 = Feuil3.Range("A18")
        TB18 = Feuil3.Range("A19")
        TB19 = Feuil3.Range("A20")
        TB20 = Feuil3.Range("A21")
        TB21 = Feuil3.Range("A22")
        TB22 = Feuil3.Range("A23")
        TB23 = Feuil3.Range("A24")
        TB24 = Feuil3.Range("A25")
        TB25 = Feuil3.Range("A26")
        TB26 = Feuil3.Range("A27")
        TB27 = Feuil3.Range("A28")
        TB28 = Feuil3.Range("A29")
        TB29 = Feuil3.Range("A30")
        TB30 = Feuil3.Range("A31")

        TB31 = Feuil3.Range("F2") 
        TB32 = Feuil3.Range("F3")
        TB33 = Feuil3.Range("F4")
        TB34 = Feuil3.Range("F5")
        TB35 = Feuil3.Range("F6")
        TB36 = Feuil3.Range("F7")

        TB41 = Feuil3.Range("K2") 
        TB42 = Feuil3.Range("K3")
        TB43 = Feuil3.Range("K4")
        TB44 = Feuil3.Range("K5")
        TB45 = Feuil3.Range("K6")
        TB46 = Feuil3.Range("K7")
        TB47 = Feuil3.Range("K8")
        TB48 = Feuil3.Range("K9")
        TB49 = Feuil3.Range("K10")
        TB50 = Feuil3.Range("K11")
        TB51 = Feuil3.Range("K12")
        TB52 = Feuil3.Range("K13")
        TB53 = Feuil3.Range("K14")
        TB54 = Feuil3.Range("K15")
        TB55 = Feuil3.Range("K16")
    End With

amicalement

Bonjour,

si on suppose que TB signifie Textbox, et que ce code est dans un userform, pour les deux premières partie , pour le reste je te laisse chercher un peu, mais il suffit de copier!!!!

a+

Papou

With Sheets("Tarif")
     for i= 1 to 30
          controls("TB"& i )=feuil3.cells(i+1,1)
     next i
     for i= 31 to 36
          controls("TB"& i ) = Feuil3.cells(i-29,6))
     next i        
end with

bonjour pascal

toujours aussi réactif a ce que je vois

cela fonctionne très bien comme a l'habitude

amicalement