pour effacer les cellules de couleur orange
après printpreview
Range("D7,J8:J9,L8:L9,L13:M13,F20,G20").Select
Selection.ClearContents
ou pour effacer un plus grand nombre de cellules dispersées dans la feuille
Range("D7,D8,D9:G9,G8,J8:J9,L8:L9,F14:G21,L13:M13,F25:F28").Select
Selection.ClearContents
à adapter en fonction de vos besoins
cordialement
galougalou