XL 2010 resolu

Sub Rempli()
derlg = Range("A65536").End(xlUp).Row
    For i = 2 To derlg
        If Cells(i, 1) = "" Then
            For j = i - 1 To 1 Step -1
                If Left(Cells(j, 1), 2) = "cv" Then
                Cells(i, 1) = Cells(j, 1).Value: Exit For
                End If
            Next j
        End If
    Next i
End Sub

Sub essai()
Dim dernièrelig As Integer, i As Integer
Dim stock As String

dernièrelig = Range("A1048576").End(xlUp).Row
For i = 1 To dernièrelig
If Left(Cells(i, "A"), 2) = "cv" Then stock = Cells(i, "A")
If Cells(i, "A") = "" Then Cells(i, "A") = stock
Next i
End Sub