Dim F As Object
Set F = Sheets(Array(Feuil2.Name, Feuil3.Name, Feuil4.Name, Feuil5.Name, Feuil5.Name, Feuil5.Name, _
Feuil6.Name, Feuil7.Name, Feuil8.Name, Feuil9.Name, Feuil10.Name, Feuil11.Name, _
Feuil12.Name, Feuil13.Name, Feuil14.Name, Feuil15.Name, Feuil16.Name, Feuil7.Name))
For Each F In F
F.Range("A3:L" & Rows.Count).Clear
Next