Salut,
Je viens de tester chez moi (Excel XP, FR, WinXP) et ça marche impecc.
Pour info, tu n'est pas obligé de sélectionner pour ensuite effacer la sélection.
Tu peux agir directement sur l'objet de ton choix :
Range("F3:F18").Delete Shift:=xlToLeft
ou
[F3:F18].Delete Shift:=xlToLeft
Si tu utilises la méthode Delete, cela supprime les cellules, et tu dois gérer le déplacement des cellules adjacentes.
Il y a aussi la méthode Clear qui efface, sans supprimer
[F3:F18].Clear
Tiens-nous au courant.
Rai