Bonjour , si quelqu'un peut m'aider à transformer ce code en boucle, j'ai essayé mais sans résultat , Merci d'avance
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
'Worksheets(Nom3).Range("G18") = Worksheets(Nom2).Range("G11")
    'Worksheets(Nom3).Range("G19") = Worksheets(Nom2).Range("G12")
    'Worksheets(Nom3).Range("G20") = Worksheets(Nom2).Range("G13")
    'Worksheets(Nom3).Range("G21") = Worksheets(Nom2).Range("G14")
    'Worksheets(Nom3).Range("G22") = Worksheets(Nom2).Range("G15")
    'Worksheets(Nom3).Range("G23") = Worksheets(Nom2).Range("G16")
    'Worksheets(Nom3).Range("G24") = Worksheets(Nom2).Range("G17")
    'Worksheets(Nom3).Range("G25") = Worksheets(Nom2).Range("G18")
    'Worksheets(Nom3).Range("G26") = Worksheets(Nom2).Range("G19")
    'Worksheets(Nom3).Range("G27") = Worksheets(Nom2).Range("G20")
    'Worksheets(Nom3).Range("G28") = Worksheets(Nom2).Range("G21")
    'Worksheets(Nom3).Range("G29") = Worksheets(Nom2).Range("G22")
 
    'Worksheets(Nom3).Range("G30") = Worksheets(Nom2).Range("G32")
    'Worksheets(Nom3).Range("G31") = Worksheets(Nom2).Range("G33")
    'Worksheets(Nom3).Range("G32") = Worksheets(Nom2).Range("G34")
 
    'Worksheets(Nom3).Range("G35") = Worksheets(Nom2).Range("G6")
    'Worksheets(Nom3).Range("G36") = Worksheets(Nom2).Range("G7")
    'Worksheets(Nom3).Range("G37") = Worksheets(Nom2).Range("G8")
    'Worksheets(Nom3).Range("G38") = Worksheets(Nom2).Range("G9")
    'Worksheets(Nom3).Range("G39") = Worksheets(Nom2).Range("G10")
 
    'Worksheets(Nom3).Range("G40") = Worksheets(Nom2).Range("G23")
    'Worksheets(Nom3).Range("G41") = Worksheets(Nom2).Range("G24")
    'Worksheets(Nom3).Range("G42") = Worksheets(Nom2).Range("G25")
    'Worksheets(Nom3).Range("G43") = Worksheets(Nom2).Range("G26")
    'Worksheets(Nom3).Range("G44") = Worksheets(Nom2).Range("G27")
    'Worksheets(Nom3).Range("G45") = Worksheets(Nom2).Range("G28")
    'Worksheets(Nom3).Range("G46") = Worksheets(Nom2).Range("G29")
    'Worksheets(Nom3).Range("G47") = Worksheets(Nom2).Range("G30")
    'Worksheets(Nom3).Range("G48") = Worksheets(Nom2).Range("G31")