Bonjour à tous,

Je cherche simplement à reporter les valeurs d'une colonne dans un tableau grâce à un code VBA.

Nom : 2021-04-22_14h49_22.png Affichages : 106 Taille : 25,5 Ko

La capture d'écran correspond au but final (en sachant que normalement les valeurs sont des chaines de caractères).

J'ai trouvé un code qui fonctionne mais je pense que ce n'est pas la manière "officielle"

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
33
34
35
36
37
 
     Range("F2:F9").Copy
     Range("J13:J20").Select
     ActiveCell.PasteSpecial Paste:=xlPasteValues
     Range("F10:F17").Copy
     Range("K13:K20").Select
     ActiveCell.PasteSpecial Paste:=xlPasteValues
     Range("F18:F25").Copy
     Range("L13:L20").Select
     ActiveCell.PasteSpecial Paste:=xlPasteValues
     Range("F26:F33").Copy
     Range("M13:M20").Select
     ActiveCell.PasteSpecial Paste:=xlPasteValues
     Range("F34:F41").Copy
     Range("N13:N20").Select
     ActiveCell.PasteSpecial Paste:=xlPasteValues
     Range("F42:F49").Copy
     Range("O13:O20").Select
     ActiveCell.PasteSpecial Paste:=xlPasteValues
     Range("F50:F57").Copy
     Range("P13:P20").Select
     ActiveCell.PasteSpecial Paste:=xlPasteValues
     Range("F58:F65").Copy
     Range("Q13:Q20").Select
     ActiveCell.PasteSpecial Paste:=xlPasteValues
     Range("F66:F73").Copy
     Range("R13:R20").Select
     ActiveCell.PasteSpecial Paste:=xlPasteValues
     Range("F74:F81").Copy
     Range("S13:S20").Select
     ActiveCell.PasteSpecial Paste:=xlPasteValues
     Range("F82:F89").Copy
     Range("T13:T20").Select
     ActiveCell.PasteSpecial Paste:=xlPasteValues
     Range("F90:F97").Copy
     Range("U13:U20").Select
     ActiveCell.PasteSpecial Paste:=xlPasteValues
Voilà, si quelqu'un peut m'aider à simplifier tout ça ce serait cool, merci d'avance.