Sélection multiple sous condition par macro

Sub poub()
'
' poub Macro
'
'
    Dim SelTab As String, i As Integer
    SelTab = ""
    For i = 1 To 30
        If Range("B" & (i * 8) - 2) <> "" Then
            If SelTab <> "" Then
                SelTab = SelTab & ", " & "B" & (i * 8) - 2 & ":D" & i * 8 + 1
            Else
                SelTab = "B" & (i * 8) - 2 & ":D" & i * 8 + 1
            End If
        End If
    Next
    Range(SelTab).Select
End Sub

Sub poub()
'
' poub Macro
'
'
    Dim SelTab As String, i As Integer
    SelTab = ""
    For i = 1 To 30
        If Range("B" & (i * 8) - 2) <> "" Then
            If SelTab <> "" Then
                SelTab = SelTab & ", " & "B" & (i * 8) - 2 & ":D" & i * 8 + 1
            Else
                SelTab = "B" & (i * 8) - 3 & ":D" & i * 8 + 1
            End If
        End If
    Next
    If SelTab <> "" Then Range(SelTab).Select
End Sub

Sub poub2()
Dim I As Long
Dim Plg As Range, Plg2 As Range
For I = 5 To 29 Step 8
    Set Plg = Cells(I, 2).Resize(5, 3)
    If IsEmpty(Plg(4)) Then
        If Not IsArray(Plg2) Then
            Set Plg2 = Plg
        Else
            Set Plg2 = Union(Plg2, Plg)
        End If
    End If
Next I
Plg2.Select
End Sub