Methode find

Sub test()
With [A1].CurrentRegion
    .Resize(Evaluate("MAX(IF(" & .Columns(1).Address & "<>0,ROW(" & .Columns(1).Address & ")))")).Select
End With
End Sub

    Dim lig As Long, c As Range
    Set c = Range("A1", Range("A1").End(xlDown)).Find(0, Lookat:=xlPart)
    If Not c Is Nothing Then
        ' soit
        lig = c.Row
        Range("A1", "B" & lig).Select
        ' ou :
        [A1:B1].Resize(c.Row).Select
    Else
        'non trouvé
    End If

Sub test()
Dim f, c As Range
With [A1].CurrentRegion.Columns(1)
    f = .Formula
    .Value = .Value
    .Replace 0, "", xlWhole
    Set c = .Find("*", , xlValues, xlWhole, , xlPrevious)
    .Formula = f
    If c Is Nothing Then MsgBox "Sélection impossible" Else .Resize(c.Row, 2).Select
End With
End Sub