Suppression de lignes sous deux conditions cumulatives

Sub sup()

'Je cherche une macro qui me permettrait de supprimer les lignes qui respecteraient deux conditions cumulées:
'- que la celulle de la colonne F comprenne la valeur "espèces"
'- que la cellule de la colonne C soit égale à la cellule de la colonne C de la ligne inférieure
'J 'ai essayé de mixer certaines macros proposées sur les forums mais le résultat est catastrophique....
'Merci beaucoup par avance

Dim LasRow As Long
lastrow = Derniere_Ligne(ActiveSheet.Name)
Dim valCduDessous As String
valCduDessous = ""

'On parcoure les lignes en partant du bas..
For i = lastrow To 1 Step -1
    valF = Cells(i, 6).Value
    valC = Cells(i, 3).Value
    Debug.Print " Ligne : " & i & " valeur colonne F= " & valF & " valeur colonne C= " & valC & " valeur colonne C du dessous= " & valCduDessous

If valF = "espèces" And valC = valCduDessous Then
   Debug.Print "A supprimer..."
   ' Ici mettre le code de suppression de la ligne
    Rows(i).Delete
 End If
 valCduDessous = Cells(i, 3).Value
Next

End Sub

Function Derniere_Ligne(Nom_Feuille As String) As Long
 Sheets(Nom_Feuille).Activate
 Derniere_Ligne = Cells.Find("*", Range("A1"), , , xlByRows, xlPrevious).Row + 1 'pour les lignes
End Function