J'ai juste supprimé la première ligne, car ma sélection est sur un autre tableur et ça marche !!
Merci beaucoup !
PS: ça donne ça au niveau du code
Attribute VB_Name = "Module1"
Sub importation()
Sheets("Imp. Logikal Laquage").Range("E5").PasteSpecial xlPasteValues
ActiveWorkbook.Worksheets("Tri Laquage").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Tri Laquage").AutoFilter.Sort.SortFields.Add Key:=Range _
("C2"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Tri Laquage").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub