Conserver le haut du tableau Excel

Bonjour,

j'ai rédigé la macro ci dessous, qui fonctionne très bien voir même trop.

Je souhaite conserver les 7 premières lignes de mon tableau.

Et là je bloque... Une idée peut être?

Sub SupPasRecensement()
    For i = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
    If Not Cells(i, 6) Like "recensement" Then Rows(i).Delete
    Next
End Sub

Bonsoir,

Et si tu modifiais ainsi :

Sub SupPasRecensement()
    For i = ActiveSheet.UsedRange.Rows.Count To 8 Step -1
    If Not Cells(i, 6) Like "recensement" Then Rows(i).Delete
    Next
End Sub

bonsoir

selectionne a8

onglet affichage/figet les volets/figet les volets

Merci Jean Eric,

je ne sais pas ou j'avais la tête...

Tout fonctionne parfaitement.

A bientôt pour de nouvelles aventures.