Sub Effacer_Données()
Dim ws As Worksheet
For Each ws In Worksheets
If Not ws.Name = "Tables" And Not ws.Name = "Base" And Not ws.Name = "Individuel" And Not ws.Name = "Tableau" _
And Not ws.Name = "Perf et Contre" And Not ws.Name = "Brulage" And Not ws.Name = "Eq1" And Not ws.Name = "Eq2" _
And Not ws.Name = "Eq3" And Not ws.Name = "Eq4" And Not ws.Name = "Eq5" And Not ws.Name = "Eq6" And Not ws.Name = "Eq7" _
And Not ws.Name = "Eq8" And Not ws.Name = "Feuil6 Eq1" And Not ws.Name = "Feuil6 Eq2" And Not ws.Name = "Feuil6 Eq3" _
And Not ws.Name = "Feuil6 Eq4" And Not ws.Name = "Feuil4 Eq5" And Not ws.Name = "Feuil3 Eq6" And Not ws.Name = "Feuil4 Eq6" _
And Not ws.Name = "Feuil6 Eq5" And Not ws.Name = "Feuil3 Eq7" And Not ws.Name = "Feuil3 Eq8" And Not ws.Name = "Feuil4 Eq7" And Not ws.Name = "Exemple" Then
ws.Range("A100:H100").AutoFill Destination:=ws.Range("A4:H100"), Type:=xlFillDefault
ws.Range("J100:M100").AutoFill Destination:=ws.Range("J6:M100"), Type:=xlFillDefault
End If
Next ws
End Sub