Bonjour à tous.

Voici mon problème :
Pour supprimer une plage de cellule, j'utilise le code suivant :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
 
    Sheets("TEMP").Select
    Range("A1").Select
    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    Selection.ClearContents
    Selection.QueryTable.Delete
    Range("A1").Select
Mon problème est que je n'arrive pas à réellement tout supprimer, ainsi lorsque je recherche la dernière cellule active, il retrouve toujours quelque chose, alors qu'il ne devrait retourner que A1.

Au secours...