Sub start()
Application.ScreenUpdating = False
Application.EnableEvents = False
DernLigne = Sheets("Feuil2").Range("B" & Rows.Count).End(xlUp).Row
Sheets(Array("Feuil7", "Feuil8", "Feuil9", "Feuil10")).Select 'pas besoin de boucle
Rows("5:600000").ClearContents
Range("A4:BV4").AutoFill Destination:=Range("A4:BV" & DernLigne), Type:=xlFillDefault
Application.EnableEvents = True
Sheets("feuil3").Select
Cells(1, 50).Select
Application.ScreenUpdating = True
End Sub