XL 2019 Copier selection

Sub LignesNonVides()
Dim t, i&, s$, j&, n&, sel As Range
   With Sheets("Feuil1").ListObjects("Tableau1")
      .DataBodyRange.Cells(1, 1).Offset(-1).Select
      t = .DataBodyRange.Value
      For i = 1 To UBound(t)
         s = "": For j = 1 To UBound(t, 2): s = s & t(i, j): Next
         If Len(s) > 0 Then
            n = n + 1
            If n = 1 Then Set sel = .ListRows(i).Range Else Set sel = Union(sel, .ListRows(i).Range)
         End If
      Next i
      If Not sel Is Nothing Then sel.Select
   End With
End Sub