Selection Conditionnelle de ligne

Sub top10()
Dim a As Long, UnPlus As Boolean
For a = Range("G65000").End(xlUp).Row To 1 Step -1
  If Cells(a, 6).Value = "" And Cells(a, 7).Value <> "" Then
    If Not UnPlus Then
      UnPlus = True
      Rows(a).Select
    Else
      Union(Selection, Rows(a)).Select
    End If
  End If
Next a
End Sub

Sub top10()
Dim a As Long, UnPlus As Boolean
For a = Range("G65000").End(xlUp).Row To 1 Step -1
If Not IsError(Cells(a, 7)) Then
  If Cells(a, 6).Value = "" And Cells(a, 7).Value <> "" Then
    If Not UnPlus Then
      UnPlus = True
      Rows(a).Select
    Else
      Union(Selection, Rows(a)).Select
    End If
  End If
End If
Next a
End Sub