Dim QT As QueryTable
ActiveWorkbook.Worksheets("SortieGlobale").Activate
On Error Resume Next
Set QT = ActiveSheet.QueryTables("données")
If Err Then
Set QT = ActiveSheet.QueryTables.Add(Connection:="TEXT;C:\Traitement Données Commerciales\sortie.CSV", _
Destination:=ActiveSheet.[A1])
QT.Name = "données": End If
On Error GoTo 0
With QT
.FieldNames = True