[VBA] Sélectionner une plage de donnée

Sub Test()  
Dim lig As Long  
    With Sheets("Feuil1")  
        For lig = 1 To .Range("B65536").End(xlUp).Row  
            If .Cells(lig, 2) = 0 Then Exit For  
        Next lig  
        .Range("B1:B" & lig).Select  
    End With  
End Sub

Sub selectionner()
    Dim lig As Long
    For lig = Cells(Rows.Count, 2).End(xlUp).Row To 1 Step -1
        If Cells(lig, 2) <> 0 Then Exit For
    Next lig
    Range("B1:B" & lig).Select
End Sub