Voici le code pour être plus explicite
Sub Exporter()
Range("a2:i31").Select
Workbooks.Open Filename:="adresse du fichier"
lgn = Range("A" & Rows.Count).End(xlUp)(2).Row
Range("A" & lgn).PasteSpecial xlPasteValues
Range("A1").CurrentRegion.Sort key1:=Range("f2"), order1:=xlAscending, Header:=xlYes
Application.CutCopyMode = False
ThisWorkbook.Close
End Sub
Comment éviter que ça ne copie les cellules qui sont vides?
Merci