Oops, désolé, au lieu de l'espace libre, vous devriez mettre ClearContents, pourriez l'avoir vu de votre question.
DeleteRows secondaire ()
La faible LR, I en tant que longtemps
Le faible WS comme feuille de travail
Placer le WS = le ThisWorkbook.Worksheets (« TaskTracker »)
la LR = le WS. Gamme (« A65536 »). Extrémité (xlUp). Rangée
Pour I = la LR - 1 12 à l'étape -1
le WS. Cellules (I, 1).EntireRow.Delete
Après i
Pour I = 11 7 à l'étape -1
le WS. Cellules (I, 1).EntireRow.ClearContents
Après i
Sous-marin d'extrémité