Recuperer la valeur de la premier cellule non vide

Sub test_for_next()
    With Worksheets("feuil1")
        'reprise du code de Jordane45
        i = .Cells.Find("*", Range("A1"), , , xlByRows, xlPrevious).Row 'retourne la dernière ligne non vide de la feuille Feuil1
        '-------------------------------------------------------
        For c = 7 To i
            If .Cells(i, 14) <> "" Then
                valPremiereCel = .Cells(i, 14)
                Exit Sub
            End If
        Next c
    End With
End Sub

'moins rapide  que for_next si vraiment beaucoup de iterations
Sub test_do_loop()
    With Worksheets("feuil1")
        i = 7
        Do
            i = i + 1
        Loop Until .Cells(i, 14) <> ""
        valPremiereCel = .Cells(i, 14)
    End With
End Sub