Sub efface()
Dim zone As Range
mots = Array("Heures", "Taux", "F.P")
For Each cel In Cells.SpecialCells(xlCellTypeConstants, 23)
For m = LBound(mots) To UBound(mots)
If cel.Value = mots(m) Then
If zone Is Nothing Then
Set zone = cel
Else
Set zone = Application.Union(zone, cel)
End If
End If
Next
Next
zone.Value = ""
End Sub