Suppression de valeurs de cellules toutes les X lignes

Bonjour à tous ,

Je cherche à supprimer toutes les valeurs de la cellules B10, B16, B22, B28, etc... En gros toutes les 6 cellules de la colonne B en partant de la B10. Et ce, via un bouton.

Auriez-vous un code VBA à me donner ?

PS : Ne connaissant jamais le nombre exact de cellules à supprimer, il me faudrait vraiment un code qui ferait ça pour toute la colonne B.

Merci d'avance !

bonjour,

voici

Sub aargh()
    With Sheets("feuil1") '<- à adapter
        dl& = .Cells(Rows.Count, "B").End(xlUp).Row
        For i& = 10 To dl Step 6
            .Cells(i, "B").ClearContents
        Next i
    End With
End Sub

Merci de ta réponse !

J'ai juste encore un petit soucis que j'ai oublié de préciser...

Mes cellules sont toutes fusionnées avec la colonne C.

J'ai essayé de mettre B:C à la place de B mais ça m'indique toujours qu'il y a une erreur =/.

Serait-ce également possible de faire que la macro se passe sur la feuille active et que je n'aie pas besoin de modifier à chaque fois le code lorsque je change le nom de la feuille ?

Bonsoir,

voici

Sub aargh()
    With ActiveSheet
        dl& = .Cells(Rows.Count, "B").End(xlUp).Row
        For i& = 10 To dl Step 6
            .Cells(i, "B").MergeArea.ClearContents
        Next i
    End With
End Sub