Effacer toutes les lignes d'un tableau

Bonsoir

En supposant que tu connais les lignes à supprimer au moment de le faire

Public Sub tamacro()
Dim premli As Long, derli As Long
' les autres instructions de ta macro
' .....
' definition des lignes à supprimer quelque part dans ton code
premli = 4
derli = 12
' ....
' suppression des lignes de premli à derli
Rows(premli & ":" & derli).EntireRow.Delete
End Sub

Attention, les lignes sont supprimées et non effacées

bonne suite

Salut le fil,

Philour, il n'est pas nécessaire d'ouvrir une nouvelle discussion qui ne te conduira à rien, et ce par méconnaissance des codes précédents et tu devrais répondre à mon post de cette la discussion

Je me répète si c'est pour effacer les lignes précédemment copiées, à la place de les copier il suffit de les couper et donc dans le code remplacer Copy par Cut et le tour est joué.
Mais va t'on savoir sans réponse ?

Mike,

Je n'avais pas vu ta réponse sur la discussion précédente et le post étant classe résolu et ne connaissant pas la pratique, j'ai posé cette nouvelle question.
Merci pour la réponse.

En cherchant j'ai bidouillé le code suivant qui fonctionne et semble permettre donc d'effacer toutes les lignes d'un tableau sans empiéter sur du texte positionné après et avant le tableau. Si cela peut servir...

Sheets("Edit").Select. ' sélection de ma feuille
Dim DernierLigne As Long
For I =1 To 54. ' 54 étant dernière ligne possible de mon tableau
Range("E159).Select. ' la première ligne du tableau E 159
DernierLigne = Sélection.End(xldown).Row ' recherche la dernière ligne du tableau
If ActiveCell.Value <> 0 Then Sélection.EntireRow.Delete
Next I
End Sub

Merci à ccm81 pour sa réponse.

Effectivement Mike, je n'avais pas pensé à cette solution efficace de remplacer copy par cut bien adaptée à mon code.

Encore merci !