Sub maj_extraction_de_donnees()
'
' maj_extraction_de_données Macro
'
'
Sheets("Donnees").Select
Range("A2:E3138").Select
Selection.ClearContents
Range("A1:E2644").Select
Selection.Copy
Windows("Outil de franchissement.xlsm").Activate
Sheets("Donnees density").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Windows("Equity.csv").Activate
Application.CutCopyMode = False
Windows("Outil de franchissement.xlsm").Activate
End Sub