Bonjour,

A partir de l'enregistreur de macro j'ai le code suivant :
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
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
 
Sub Macro1()
 
 
    Sheets("Partenaires sortie").Select
    Range("EC181:EF200").Select
    Selection.Copy
    Sheets("ARCACHON").Select
    Range("AS2").Select
    ActiveSheet.Paste
    Range("AS2").Select
    Sheets("BISCARROSSE D.E.").Select
    Range("AS2").Select
    ActiveSheet.Paste
    Range("AS2").Select
    Sheets("BISCARROSSE S.G.").Select
    Range("AS2").Select
    ActiveSheet.Paste
    Range("AS2").Select
    Sheets("BORDEAUX LAC ETANGS D.E.").Select
    Range("AS2").Select
    ActiveSheet.Paste
    Range("AS2").Select
    Sheets("BORDEAUX LAC ETANGS S.G.").Select
    Range("AS2").Select
    ActiveSheet.Paste
    Range("AS2").Select
    Sheets("BORDEAUX LAC JALLE D.E.").Select
    Range("AS2").Select
    ActiveSheet.Paste
    Range("AS2").Select
    Sheets("BORDEAUX LAC JALLE S.G.").Select
    Range("AS2").Select
    ActiveSheet.Paste
    Range("AS2").Select
    Sheets("CAMEYRAC D.E.").Select
    Range("AS2").Select
    ActiveSheet.Paste
    Range("AS2").Select
    Sheets("CAMEYRAC S.G.").Select
    Range("AS2").Select
    ActiveSheet.Paste
    Range("AS2").Select
    Sheets("CASSY LANTON D.E.").Select
    Range("AS2").Select
    ActiveSheet.Paste
    Range("AS2").Select
    Sheets("CASSY LANTON S.G.").Select
    Range("AS2").Select
    ActiveSheet.Paste
    Range("AS2").Select
    Sheets("CASTELJALOUX D.E.").Select
    Range("AS2").Select
    ActiveSheet.Paste
    Range("AS2").Select
    Sheets("CASTELJALOUX S.G.").Select
    Range("AS2").Select
    ActiveSheet.Paste
    Range("AS2").Select
    Sheets("GUJAN MESTRAS D.E.").Select
    Range("AS2").Select
    ActiveSheet.Paste
    Range("AS2").Select
    Sheets("GUJAN MESTRAS S.G.").Select
    Range("AS2").Select
    ActiveSheet.Paste
    Range("AS2").Select
    Sheets("LACANAU COUPE DES MANAGERS").Select
    Range("AS2").Select
    ActiveSheet.Paste
    Range("AS2").Select
    Sheets("LACANAU").Select
    Range("AS2").Select
    ActiveSheet.Paste
    Range("AS2").Select
    Sheets("LACANAU LE MEJANNAIS D.E.").Select
    Range("AS2").Select
    ActiveSheet.Paste
    Range("AS2").Select
    Sheets("LACANAU LE MEJANNAIS S.G.").Select
    Range("AS2").Select
    ActiveSheet.Paste
    Range("AS2").Select
    Sheets("LANGON D.E.").Select
    Range("AS2").Select
    ActiveSheet.Paste
    Range("AS2").Select
    Sheets("LANGON S.G.").Select
    Range("AS2").Select
    ActiveSheet.Paste
    Range("AS2").Select
    Sheets("LE PIAN MEDOC CHATEAUX D.E.").Select
    Range("AS2").Select
    ActiveSheet.Paste
    Range("AS2").Select
    Sheets("LE PIAN MEDOC CHATEAUX S.G.").Select
    Range("AS2").Select
    ActiveSheet.Paste
    Range("AS2").Select
    Sheets("LE PIAN MEDOC VIGNES D.E.").Select
    Range("AS2").Select
    ActiveSheet.Paste
    Range("AS2").Select
    Sheets("LE PIAN MEDOC VIGNES S.G.").Select
    Range("AS2").Select
    ActiveSheet.Paste
    Range("AS2").Select
    Sheets("MARGAUX D.E.").Select
    Range("AS2").Select
    ActiveSheet.Paste
    Range("AS2").Select
    Sheets("MARGAUX S.G.").Select
    Range("AS2").Select
    ActiveSheet.Paste
    Range("AS2").Select
    Sheets("MONT DE MARSAN D.E.").Select
    Range("AS2").Select
    ActiveSheet.Paste
    Range("AS2").Select
    Sheets("MONT DE MARSAN S.G.").Select
    Range("AS2").Select
    ActiveSheet.Paste
    Range("AS2").Select
    Sheets("PESSAC D.E.").Select
    Range("AS2").Select
    ActiveSheet.Paste
    Range("AS2").Select
    Sheets("PESSAC S.G.").Select
    Range("AS2").Select
    ActiveSheet.Paste
    Range("AS2").Select
    Sheets("SAINT EMILION D.E.").Select
    Range("AS2").Select
    ActiveSheet.Paste
    Range("AS2").Select
    Sheets("SAINT EMILION S.G.").Select
    Range("AS2").Select
    ActiveSheet.Paste
    Range("AS2").Select
    Sheets("TEYNAC").Select
    Range("AS2").Select
    ActiveSheet.Paste
    Range("AS2").Select
    Sheets("VILLENAVE D'ORNON D.E.").Select
    Range("AS2").Select
    ActiveSheet.Paste
    Range("AS2").Select
    Sheets("VILLENAVE D'ORNON S.G.").Select
    Range("AS2").Select
    ActiveSheet.Paste
    Range("AS2").Select
    Sheets("Partenaires sortie").Select
    Application.CutCopyMode = False
 
 
End Sub
Cela me permet de copier les cellules EC181:EF200 qui sont dans l'onglet "Partenaires sortie" dans les différents onglets.

Si je copie ce code dans l'onglet "Partenaires sortie" et que je l'exécute à partir d'un bouton auquel j'affecte une macro, j'ai un message d'erreur (une croix avec 400), si j'utilise la commande débogage j'ai le message "Erreur d'exécution 1004 : Erreur définie par l'application ou par l'objet".
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
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
 
Sub Copier()
 
Application.EnableEvents = False
Application.ScreenUpdating = False
 
Unprotect ("C#D&i78a9")
 
    Range("EC181:EF200").Select
    Selection.Copy
    Sheets("ARCACHON").Select
    Range("AS2").Select
    ActiveSheet.Paste
    Range("AS2").Select
    Sheets("BISCARROSSE D.E.").Select
    Range("AS2").Select
    ActiveSheet.Paste
    Range("AS2").Select
    Sheets("BISCARROSSE S.G.").Select
    Range("AS2").Select
    ActiveSheet.Paste
    Range("AS2").Select
    Sheets("BORDEAUX LAC ETANGS D.E.").Select
    Range("AS2").Select
    ActiveSheet.Paste
    Range("AS2").Select
    Sheets("BORDEAUX LAC ETANGS S.G.").Select
    Range("AS2").Select
    ActiveSheet.Paste
    Range("AS2").Select
    Sheets("BORDEAUX LAC JALLE D.E.").Select
    Range("AS2").Select
    ActiveSheet.Paste
    Range("AS2").Select
    Sheets("BORDEAUX LAC JALLE S.G.").Select
    Range("AS2").Select
    ActiveSheet.Paste
    Range("AS2").Select
    Sheets("CAMEYRAC D.E.").Select
    Range("AS2").Select
    ActiveSheet.Paste
    Range("AS2").Select
    Sheets("CAMEYRAC S.G.").Select
    Range("AS2").Select
    ActiveSheet.Paste
    Range("AS2").Select
    Sheets("CASSY LANTON D.E.").Select
    Range("AS2").Select
    ActiveSheet.Paste
    Range("AS2").Select
    Sheets("CASSY LANTON S.G.").Select
    Range("AS2").Select
    ActiveSheet.Paste
    Range("AS2").Select
    Sheets("CASTELJALOUX D.E.").Select
    Range("AS2").Select
    ActiveSheet.Paste
    Range("AS2").Select
    Sheets("CASTELJALOUX S.G.").Select
    Range("AS2").Select
    ActiveSheet.Paste
    Range("AS2").Select
    Sheets("GUJAN MESTRAS D.E.").Select
    Range("AS2").Select
    ActiveSheet.Paste
    Range("AS2").Select
    Sheets("GUJAN MESTRAS S.G.").Select
    Range("AS2").Select
    ActiveSheet.Paste
    Range("AS2").Select
    Sheets("LACANAU COUPE DES MANAGERS").Select
    Range("AS2").Select
    ActiveSheet.Paste
    Range("AS2").Select
    Sheets("LACANAU").Select
    Range("AS2").Select
    ActiveSheet.Paste
    Range("AS2").Select
    Sheets("LACANAU LE MEJANNAIS D.E.").Select
    Range("AS2").Select
    ActiveSheet.Paste
    Range("AS2").Select
    Sheets("LACANAU LE MEJANNAIS S.G.").Select
    Range("AS2").Select
    ActiveSheet.Paste
    Range("AS2").Select
    Sheets("LANGON D.E.").Select
    Range("AS2").Select
    ActiveSheet.Paste
    Range("AS2").Select
    Sheets("LANGON S.G.").Select
    Range("AS2").Select
    ActiveSheet.Paste
    Range("AS2").Select
    Sheets("LE PIAN MEDOC CHATEAUX D.E.").Select
    Range("AS2").Select
    ActiveSheet.Paste
    Range("AS2").Select
    Sheets("LE PIAN MEDOC CHATEAUX S.G.").Select
    Range("AS2").Select
    ActiveSheet.Paste
    Range("AS2").Select
    Sheets("LE PIAN MEDOC VIGNES D.E.").Select
    Range("AS2").Select
    ActiveSheet.Paste
    Range("AS2").Select
    Sheets("LE PIAN MEDOC VIGNES S.G.").Select
    Range("AS2").Select
    ActiveSheet.Paste
    Range("AS2").Select
    Sheets("MARGAUX D.E.").Select
    Range("AS2").Select
    ActiveSheet.Paste
    Range("AS2").Select
    Sheets("MARGAUX S.G.").Select
    Range("AS2").Select
    ActiveSheet.Paste
    Range("AS2").Select
    Sheets("MONT DE MARSAN D.E.").Select
    Range("AS2").Select
    ActiveSheet.Paste
    Range("AS2").Select
    Sheets("MONT DE MARSAN S.G.").Select
    Range("AS2").Select
    ActiveSheet.Paste
    Range("AS2").Select
    Sheets("PESSAC D.E.").Select
    Range("AS2").Select
    ActiveSheet.Paste
    Range("AS2").Select
    Sheets("PESSAC S.G.").Select
    Range("AS2").Select
    ActiveSheet.Paste
    Range("AS2").Select
    Sheets("SAINT EMILION D.E.").Select
    Range("AS2").Select
    ActiveSheet.Paste
    Range("AS2").Select
    Sheets("SAINT EMILION S.G.").Select
    Range("AS2").Select
    ActiveSheet.Paste
    Range("AS2").Select
    Sheets("TEYNAC").Select
    Range("AS2").Select
    ActiveSheet.Paste
    Range("AS2").Select
    Sheets("VILLENAVE D'ORNON D.E.").Select
    Range("AS2").Select
    ActiveSheet.Paste
    Range("AS2").Select
    Sheets("VILLENAVE D'ORNON S.G.").Select
    Range("AS2").Select
    ActiveSheet.Paste
    Range("AS2").Select
    Sheets("Partenaires sortie").Select
    Application.CutCopyMode = False
 
Protect ("C#D&i78a9"), DrawingObjects:=False, Contents:=True, Scenarios:=False, AllowFormattingCells:=True, AllowFormattingColumns:=True, AllowFormattingRows:=True
 
Application.EnableEvents = True
Application.ScreenUpdating = True
 
End Sub
Pouvez me dire où se situe mon erreur ?

Merci.

D'autre part, lorsqu'on prépare une sortie de golf, seul l'onglet où a lieu la sortie est visible (Arcachon, ou Biscarrosse D.E., ou Biscarrosse S.G., ...) , les autres onglets sont masqué, est-il possible d'ajouter une instruction pour copier les cellules EC181:EF200, uniquement dans l'onglet qui est visible.

Je vous remercie pour votre aide.