Sub Macro3()
'
' Macro3 Macro
'

'
MsgBox ("Initialisation")
Dim csv As String
csv = "orders-export-2022_02_01_13_13_45.csv"
MsgBox ("Déclaration des vars")

    Windows(csv).Activate
    MsgBox ("Changement de xcl")
    
    Rows("2:2").Select
    MsgBox ("Ligne 2 séléctionné")
    
    Range(Selection, Selection.End(xlDown)).Select
    Selection.AutoFilter
    MsgBox ("ligne 2 étendue")
    
    If ActiveSheet.AutoFilterMode Then
        ActiveWorkbook.Worksheets(csv).AutoFilter.Sort. _
        SortFields.Clear
        MsgBox ("Clear les filtres")
    End If

    ActiveWorkbook.Worksheets(csv).AutoFilter.Sort. _
        SortFields.Add2 Key:=Range("D2:D312"), SortOn:=xlSortOnValues, Order:= _
        xlAscending, DataOption:=xlSortNormal
    MsgBox ("Filter par date croissante")

    With ActiveWorkbook.Worksheets(csv).AutoFilter. _
        Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    MsgBox ("jsp ce que ça fait...")

    Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    MsgBox ("Remplace les . par ,")

    Selection.Copy
    MsgBox ("Ctrl+c")
    
    Windows("Ventes et TVA 2022.xlsx").Activate
    MsgBox ("Passe sur Ventes et TVA 2022.xlsx")
    Sheets("Base 19-22").Select
    MsgBox ("Passe sur Base 19-22")
    
    Range("A2").Select
    Selection.End(xlDown).Select
    Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Select
    'Range("A313").Select
    
    ActiveSheet.Paste

End Sub