[RESOLU] Importation et traitement de données en VBA

Dim nom$, WBKSource As Workbook
With Application.FileDialog(msoFileDialogOpen)
   .Title = "Yeaaa choose your Fichier"
    .Filters.Clear
    .Filters.Add "Ton Tableur", "*.xlsX*, *.Xlsm*, *.Xls*"
    .AllowMultiSelect = False
        If .Show <> 0 Then
        nom = .SelectedItems(1)
            Set WBKSource = Workbooks.Open(nom)
           With WBKSource
                .ActiveSheet.Copy Before:=ThisWorkbook.Sheets(1)
                .Close False
            End With
        Else
        MsgBox "Boaaa t'veux rien !", , "dô_Ôb": Exit Sub
        End If
End With

Sheets(1).Select
For i = 1 To Range("D36553").End(xlUp).Row
    If Cells(i, 4) <> "" Then
    Cells(i, 10).Value = Cells(i, 4).Value & "," & Cells(i, 5).Value & "," & Cells(i, 6).Value & "," & Cells(i, 7).Value & "," & Cells(i, 8).Value & "," & Cells(i, 9).Value
    End If
Next i

Sheets(1).Columns("D:I").Select
Selection.Delete
Sheets(1).Rows("1:1").Select
Selection.Delete Shift:=xlUp

Sheets(1).Range("A1").Select
Selection.CurrentRegion.Select
Selection.Copy
Sheets("Feuilles de données").Activate
Sheets("Feuilles de données").Range("A65536").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

Application.DisplayAlerts = False
Worksheets(1).Delete
Application.DisplayAlerts = True