Bonjour à tous,

Avec une macro je dois insérer des données dans une feuille (20 x 3 données), ça fait beaucoup de lignes de code.
Il doit certainement y avoir une solution avec une boucle, mais je ne trouve pas comment faire... (Les données ont des N° qui se suivent)
Si quelqu'un peut me mettre sur la voie, ça serait sympa.

Voici le code de base :

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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
Sub Insert_Lig()
    With Tableau1
' Ligne1
    .Ing1.Value = Sheets("Donnees").Range("A22")
    .Qu1.Value = Sheets("Donnees").Range("B22")
    .Pts1.Value = Format(Sheets("Donnees").Range("D22"), "0.0")
' Ligne2
    .Ing2.Value = Sheets("Donnees").Range("A23")
    .Qu2.Value = Sheets("Donnees").Range("B23")
    .Pts2.Value = Format(Sheets("Donnees").Range("D23"), "0.0")
' Ligne3
    .Ing3.Value = Sheets("Donnees").Range("A24")
    .Qu3.Value = Sheets("Donnees").Range("B24")
    .Pts3.Value = Format(Sheets("Donnees").Range("D24"), "0.0")
' Ligne4
    .Ing4.Value = Sheets("Donnees").Range("A25")
    .Qu4.Value = Sheets("Donnees").Range("B25")
    .Pts4.Value = Format(Sheets("Donnees").Range("D25"), "0.0")
' Ligne5
    .Ing5.Value = Sheets("Donnees").Range("A26")
    .Qu5.Value = Sheets("Donnees").Range("B26")
    .Pts5.Value = Format(Sheets("Donnees").Range("D26"), "0.0")
' Ligne6
    .Ing6.Value = Sheets("Donnees").Range("A27")
    .Qu6.Value = Sheets("Donnees").Range("B27")
    .Pts6.Value = Format(Sheets("Donnees").Range("D27"), "0.0")
' Ligne7
    .Ing7.Value = Sheets("Donnees").Range("A28")
    .Qu7.Value = Sheets("Donnees").Range("B28")
    .Pts7.Value = Format(Sheets("Donnees").Range("D28"), "0.0")
' Ligne8
    .Ing8.Value = Sheets("Donnees").Range("A29")
    .Qu8.Value = Sheets("Donnees").Range("B29")
    .Pts8.Value = Format(Sheets("Donnees").Range("D29"), "0.0")
' Ligne9
    .Ing9.Value = Sheets("Donnees").Range("A30")
    .Qu9.Value = Sheets("Donnees").Range("B30")
    .Pts9.Value = Format(Sheets("Donnees").Range("D30"), "0.0")
' Ligne10
    .Ing10.Value = Sheets("Donnees").Range("A31")
    .Qu10.Value = Sheets("Donnees").Range("B31")
    .Pts10.Value = Format(Sheets("Donnees").Range("D31"), "0.0")
' Ligne11
    .Ing11.Value = Sheets("Donnees").Range("A32")
    .Qu11.Value = Sheets("Donnees").Range("B32")
    .Pts11.Value = Format(Sheets("Donnees").Range("D32"), "0.0")
' Ligne12
    .Ing12.Value = Sheets("Donnees").Range("A33")
    .Qu12.Value = Sheets("Donnees").Range("B33")
    .Pts12.Value = Format(Sheets("Donnees").Range("D33"), "0.0")
' Ligne13
    .Ing13.Value = Sheets("Donnees").Range("A34")
    .Qu13.Value = Sheets("Donnees").Range("B34")
    .Pts13.Value = Format(Sheets("Donnees").Range("D34"), "0.0")
' Ligne14
    .Ing14.Value = Sheets("Donnees").Range("A35")
    .Qu14.Value = Sheets("Donnees").Range("B35")
    .Pts14.Value = Format(Sheets("Donnees").Range("D35"), "0.0")
' Ligne15
    .Ing15.Value = Sheets("Donnees").Range("A36")
    .Qu15.Value = Sheets("Donnees").Range("B36")
    .Pts15.Value = Format(Sheets("Donnees").Range("D36"), "0.0")
' Ligne16
    .Ing16.Value = Sheets("Donnees").Range("A37")
    .Qu16.Value = Sheets("Donnees").Range("B37")
    .Pts16.Value = Format(Sheets("Donnees").Range("D37"), "0.0")
' Ligne17
    .Ing17.Value = Sheets("Donnees").Range("A38")
    .Qu17.Value = Sheets("Donnees").Range("B38")
    .Pts17.Value = Format(Sheets("Donnees").Range("D38"), "0.0")
' Ligne18
    .Ing18.Value = Sheets("Donnees").Range("A39")
    .Qu18.Value = Sheets("Donnees").Range("B39")
    .Pts18.Value = Format(Sheets("Donnees").Range("D39"), "0.0")
' Ligne19
    .Ing19.Value = Sheets("Donnees").Range("A40")
    .Qu19.Value = Sheets("Donnees").Range("B40")
    .Pts19.Value = Format(Sheets("Donnees").Range("D40"), "0.0")
' Ligne20
    .Ing20.Value = Sheets("Donnees").Range("A41")
    .Qu20.Value = Sheets("Donnees").Range("B41")
    .Pts20.Value = Format(Sheets("Donnees").Range("D412"), "0.0")
    End With
End Sub
Merci pour vos réponses

Cordialement
Magnum812