voici le code que j'utilise actuellement

Code : Sélectionner tout - Visualiser dans une fenêtre à part
Workbooks("calcul gomme4,0-2007.xls").Sheets("Programme Gommes").Range("E2:E65536").ClearContents

mais maintenant je voudrais pouvoir effacer a partir de la ligne selection

par exemple je selectionne la cellule I35 et j'efface de E35 à E 65536

et je ne sais pas comment coder
une aide ne serait pas de trop