Selectionner un ensemble de Cellules toutes les X lignes

Bonjour à tous et à toutes,

Je cherche un moyen de sélectionner un ensemble de cellule (ou se trouve des listes déroulantes) et de faire clearcontents.

Donc un normalement, un simple

Range("G4 : H9 ").Select

Selection.ClearContents

devrait me satisfaire, mais je voudrai répéter cette action toutes les 7 lignes.

Je vous joins le fichier.

Quelques petites détails, le tableau s'étend bien plus bas que l'exemple normalement alors me sortez pas de le faire à l'enregistrement. De plus, je cherche pas à "supprimer" car ce sont des listes déroulantes normalement, je cherche juste à "effacer le contenu".

Merci d'avance

Bonsoir,

Je ne vois pas de listes déroulantes dans le fichier...

Essaie ceci :

Sub efface()
Dim lig As Integer
With ActiveSheet
lig = .Cells.Find("*", LookIn:=xlValues, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row + 1
For i = 4 To lig Step 7
    .Range("G" & i & ":H" & i + 5).ClearContents
Next
End sub

Si ok, merci de cloturer le fil en cliquant sur le V vert à coté du bouton EDITER

Amicalement

Je te remerci grandement, ça marche sur l'exemple (sauf que tu avais oublier "end with" avant end sub) mais sinon du tonerre de dieu

Sub effacer()

Dim lig As Integer
With ActiveSheet
lig = .Cells.Find("*", LookIn:=xlValues, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row + 1
For i = 4 To lig Step 7
    .Range("G" & i & ":H" & i + 5).ClearContents

Next
End With
End Sub