Débogage dans mon code

Salut le forum

J'ai essayé de bricoler un code qui normalement devrait me permettre de pouvoir sélectionner la plage A5:E (dernière ligne non vide de E) et de les supprimer mais je rencontre un debogage.

Merci de d'apprécier mon code.

Sub cleaning()
Dim Lfin1 As Long
Lfin1 = Sheets("TABLEAU_N").UsedRange.Rows.Count
With Sheets("TABLEAU_N")
.Range("A5:E" & Lfin1).Select
Selection.Delete
End With
End Sub

Sub cleaning()
Dim Lfin1 As Long
With Sheets("TABLEAU_N")
Lfin1 = .UsedRange.Row
.Range("A5:E" & Lfin1).clearcontents
End With
End Sub

Salut EngueEngue

merci pour votre contribution.

Ca ne répond pas à 100% à mon besoin.

Je constate qu'au lieu d'effacer le contenu A5:E (dernière ligne non vide de "E"), il efface toutes les données.

Est-il possible de circonscrire le champ à effacer?

suffit de changer ça

Lfin1 = .range("E" & .rows.count).end(xlup).row

Merci.

suis enfin satisfait.