' ... / ....
Workbooks.Open ("C:\Documents and Settings\leclerc\Bureau\test pour aide\" & fichier)
With ActiveWorkbook
.Sheets(4).Activate
With ActiveSheet
.Range("A1").Select
If .AutoFilterMode And .FilterMode Then .ShowAllData
.Range("A1").CurrentRegion.Offset(1).Copy
End With
.Close False
End With
' ... / ....