Sub Traitement_Concat()
'Gestion des erreurs
On Error Resume Next
Dim Wb As Workbook
Application.ScreenUpdating = False
With Application.FileDialog(msoFileDialogFilePicker)
.Filters.Clear
'.Filters.Add Description:="Microsoft Excel", Extensions:="*.csv", Position:=1
.Filters.Add Description:="Microsoft Excel", Extensions:="*.txt", Position:=1
.Show
If .SelectedItems.Count = 0 Then Exit Sub
cheminfichier = .SelectedItems(1)
Workbooks.OpenText FileName:=cheminfichier, Origin:= _
xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote _
, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, Comma:= _
False, Space:=False, Other:=False, FieldInfo:=Array(1, 1), _
TrailingMinusNumbers:=True
End With
Selection.AutoFilter
ActiveSheet.Range("$A$1:$Q$853").AutoFilter Field:=1, Criteria1:="PIG"
ActiveSheet.Range("$A$1:$Q$853").AutoFilter Field:=10, Criteria1:="<>*INFO" _
, Operator:=xlAnd
ActiveWorkbook.SaveAs FileName:="C:\Users\psei09701\Desktop\TEST\Sortie_Filtre.xlsx" _
, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'ActiveWorkbook.Close
End Sub