Bonjour Christian et le forum,
Laisses tes derniers cheveux tranquilles, ils n'y sont pour rien !
Je repris ta macro sans savoir ce que tu veux exactement :
Sheets('EQ').Select
Range('B1:J1').Select
Application.ScreenUpdating = False
With Sheets('EQ')
.Range('B4:J607').ClearContents
With Sheets('AFFSS')
.Range('B4').AutoFilter Field:=6, Criteria1:='1'
.Range('B5:J607').Copy
End With
Sheets('EQ').Range('B4').PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Range('B4:J13').Sort Key1:=Range('J4'), Order1:=xlAscending, Header:=xlGuess
End With
Sheets('AFFSS').Range('B4').AutoFilter
Application.ScreenUpdating = True
Si tu peux mettre un fichier zippé de moins de 50Ko cela ferait avancer le chimilblick !
Cordialement
Bernard