Sub FILTRAGE_ET_RECOPIE()
'
' FILTRAGE_ET_RECOPIE Macro
'
Dim plage As Range
Range("CI2").Select
ActiveCell.FormulaR1C1 = "=SUBTOTAL(3,C[-44])-1"
Range("CI3").Select
ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,C44)"
Range("CI2:CI3").Select
Selection.Copy
Range("AW2:CH3").Select
ActiveSheet.Paste
Range("AW2:CH3").Select
Application.CutCopyMode = False
'
Range("AQ4").Select
Set plage = Range("a4:ar1248")
plage.AutoFilter Field:=ActiveCell.Column, Criteria1:=">-24", Operator:=xlAnd
Range("CI2:CI3").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AP4").Select
Set plage = Range("a4:ar1248")
plage.AutoFilter Field:=ActiveCell.Column, Criteria1:=">-24", Operator:=xlAnd
Range("CH2:CH3").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AO4").Select
Set plage = Range("a4:ar1248")
plage.AutoFilter Field:=ActiveCell.Column, Criteria1:=">-24", Operator:=xlAnd
Range("CG2:CG3").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
5
Range("AN4").Select
Set plage = Range("a4:ar1248")
plage.AutoFilter Field:=ActiveCell.Column, Criteria1:=">-24", Operator:=xlAnd
Range("CF2:CF3").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AM4").Select
Set plage = Range("a4:ar1248")
plage.AutoFilter Field:=ActiveCell.Column, Criteria1:=">-24", Operator:=xlAnd
Range("CE2:CE3").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AL4").Select
Set plage = Range("a4:ar1248")
plage.AutoFilter Field:=ActiveCell.Column, Criteria1:=">-24", Operator:=xlAnd
Range("CD2:CD3").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AK4").Select
Set plage = Range("a4:ar1248")
plage.AutoFilter Field:=ActiveCell.Column, Criteria1:=">-24", Operator:=xlAnd
Range("CC2:CC3").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AJ4").Select
Set plage = Range("a4:ar1248")
plage.AutoFilter Field:=ActiveCell.Column, Criteria1:=">-24", Operator:=xlAnd
Range("CB2:CB3").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AI4").Select
Set plage = Range("a4:ar1248")
plage.AutoFilter Field:=ActiveCell.Column, Criteria1:=">-24", Operator:=xlAnd
Range("CA2:CA3").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
...../......
Range("W4").Select
Set plage = Range("a4:ar1248")
plage.AutoFilter Field:=ActiveCell.Column, Criteria1:=">-24", Operator:=xlAnd
Range("BO2:BO3").Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("V4").Select
Set plage = Range("a4:ar1248")
plage.AutoFilter Field:=ActiveCell.Column, Criteria1:=">-24", Operator:=xlAnd
Range("BN2:BN3").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("U4").Select
Set plage = Range("a4:ar1248")
plage.AutoFilter Field:=ActiveCell.Column, Criteria1:=">-24", Operator:=xlAnd
Range("BM2:BM3").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("T4").Select
Set plage = Range("a4:ar1248")
plage.AutoFilter Field:=ActiveCell.Column, Criteria1:=">-24", Operator:=xlAnd
Range("BL2:BL3").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("S4").Select
Set plage = Range("a4:ar1248")
plage.AutoFilter Field:=ActiveCell.Column, Criteria1:=">-24", Operator:=xlAnd
Range("BK2:BK3").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("R4").Select
Set plage = Range("a4:ar1248")
plage.AutoFilter Field:=ActiveCell.Column, Criteria1:=">-24", Operator:=xlAnd
Range("BJ2:BJ3").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Q4").Select
Set plage = Range("a4:ar1248")
plage.AutoFilter Field:=ActiveCell.Column, Criteria1:=">-24", Operator:=xlAnd
Range("BI2:BI3").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("P4").Select
Set plage = Range("a4:ar1248")
plage.AutoFilter Field:=ActiveCell.Column, Criteria1:=">-24", Operator:=xlAnd
Range("BH2:BH3").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("O4").Select
Set plage = Range("a4:ar1248")
plage.AutoFilter Field:=ActiveCell.Column, Criteria1:=">-24", Operator:=xlAnd
Range("BG2:BG3").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("N4").Select
Set plage = Range("a4:ar1248")
plage.AutoFilter Field:=ActiveCell.Column, Criteria1:=">-24", Operator:=xlAnd
Range("BF2:BF3").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("M4").Select
Set plage = Range("a4:ar1248")
plage.AutoFilter Field:=ActiveCell.Column, Criteria1:=">-24", Operator:=xlAnd
Range("BE2:BE3").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("L4").Select
Set plage = Range("a4:ar1248")
plage.AutoFilter Field:=ActiveCell.Column, Criteria1:=">-24", Operator:=xlAnd
Range("BD2:BD3").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("K4").Select
Set plage = Range("a4:ar1248")
plage.AutoFilter Field:=ActiveCell.Column, Criteria1:=">-24", Operator:=xlAnd
Range("BC2:BC3").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("J4").Select
Set plage = Range("a4:ar1248")
plage.AutoFilter Field:=ActiveCell.Column, Criteria1:=">-24", Operator:=xlAnd
Range("BB2:BB3").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("I4").Select
Set plage = Range("a4:ar1248")
plage.AutoFilter Field:=ActiveCell.Column, Criteria1:=">-24", Operator:=xlAnd
Range("BA2:BA3").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("H4").Select
Set plage = Range("a4:ar1248")
plage.AutoFilter Field:=ActiveCell.Column, Criteria1:=">-24", Operator:=xlAnd
Range("AZ2:AZ3").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("G4").Select
Set plage = Range("a4:ar1248")
plage.AutoFilter Field:=ActiveCell.Column, Criteria1:=">-24", Operator:=xlAnd
Range("AY2:AY3").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("F4").Select
Set plage = Range("a4:ar1248")
plage.AutoFilter Field:=ActiveCell.Column, Criteria1:=">-24", Operator:=xlAnd
Range("AX2:AX3").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("E4").Select
Set plage = Range("a4:ar1248")
plage.AutoFilter Field:=ActiveCell.Column, Criteria1:=">-24", Operator:=xlAnd
Range("AW2:AW3").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub
VBA