Sub Selectionner()
Dim z As Range, cel As Range
Set z = [tablo].Columns(1).Find("*", LookIn:=xlValues)
If z Is Nothing Then Exit Sub
For Each cel In [tablo].Columns(1).Cells
If cel <> "" Then Set z = Union(cel, z)
Next
Intersect([tablo], z.EntireRow).Select
End Sub