sélection discontinue de ligne excel vba

bonjour à tous

Y aurait-il quelqu'un qui aurait un code tout fait afin de sélectionner des lignes discontinues dans un classeur excel.

En fait j'ai plus de 3000 lignes de data classés par heures mais je dois seulement en sélectionner toutes les 30 minutes ce qui m'impose une sélection toutes les 5 lignes.

En vous remerciant d'avance

Code:

---

1 2 3 4 5 6 7 8 9

Sub test() Dim rw As Range Dim i As Long Set rw = Range("A1") For i = 6 To 3000 Step 5 Set rw = Union(rw, Range("A" & i)) Next rw.EntireRow.Select End Sub

---