Bonjour,

J'aimerais simplifié cette marco

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
 
'2010
Sheets("Hit-2").Select
Columns("A:A").AutoFilter Field:=1, Criteria1:="2010"
Columns("A:D").Copy
Sheets("Data").Select
ActiveSheet.Paste
Range("B2:C21").Copy
Sheets("Hit").Select
Range("A3").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
 
'2011
Sheets("Hit-2").Select
Columns("A:A").AutoFilter Field:=1, Criteria1:="2011"
Columns("A:D").Copy
Sheets("Data").Select
ActiveSheet.Paste
Range("B2:C21").Copy
Sheets("Hit").Select
Range("C3").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
 
'2012
Sheets("Hit-2").Select
Columns("A:A").AutoFilter Field:=1, Criteria1:="2012"
Columns("A:D").Copy
Sheets("Data").Select
ActiveSheet.Paste
Range("B2:C21").Copy
Sheets("Hit").Select
Range("E3").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
La macro fait toujours la meme chose sauf qu'il y a deux parametres qui varients, l'année 2010 à 2012 et la cellule de copie A3, C3, E3


MERCI Pour l'aide