Bonjour,

J'ai réalisé la macro suivante, qui fonctionne etc.... Cependant, je me rends compte que mon code pourrait surement être simplifié, ainsi j'aurais aimé avoir des avis sur comment améliorer cette présentation, voire des exemples d'amélioration de mon code, des conseils en bref.

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
Sub Jambon()
Sheets(6).Cells.Select
Selection.Delete
Sheets(3).Select
i = Range("A65436").End(xlUp).Row
Range("BB250:BM253").Select
    Selection.AutoFill Destination:=Range("BB250:BM" & i), Type:=xlFillDefault
Range("BB65230:BM" & i + 1).Delete
Sheets(2).Select
i = Range("A65436").End(xlUp).Row
Range("M250:X253").Select
    Selection.AutoFill Destination:=Range("M250:X" & i), Type:=xlFillDefault
Range("M65230:X" & i + 1).Delete
Sheets(2).Select
    Range("M1:R1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets(6).Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        Sheets(2).Select
        Range("S2:X2").Select
        Range(Selection, Selection.End(xlDown)).Select
        Selection.Copy
        Sheets(6).Select
        Range("A65536").End(xlUp).Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Sheets(3).Select
    Range("BB2:BG2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets(6).Select
    Range("A65536").End(xlUp).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        Sheets(3).Select
        Range("BH2:BM2").Select
        Range(Selection, Selection.End(xlDown)).Select
        Selection.Copy
        Sheets(6).Select
        Range("A65536").End(xlUp).Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Sheets(6).Range("B4").Select
Sheets(5).PivotTables("PivotTable41").PivotCache.Refresh
Sheets(5).Name = "Jambon" & Chr(32) & Format(Date, "yyyymmdd")
End Sub
Merci d'avance,