Fonction supprimer une ligne

Bonjour

J'ai besoin d'une ligne à insérer dans une macro dont la fonction est :

Pour toutes les cellules situées en colonne C, si la cellule est vide alors supprimer la ligne correspondante.

D'avance merci

Bonjour,

Ceci

    DerLig = Range("C" & Rows.Count).End(xlUp).Row
    For i = DerLig To 2 Step -1
        If Cells(i, "C") = "" Then Rows(i).Delete
    Next i

Cdlt

Bonjour,
Une variante.
Cdlt.

Public Sub DeleteRows()
Dim lastRow As Long, Rng As Range, Cell As Range, Rng2 As Range

    With ActiveSheet
        lastRow = .Cells(.Rows.Count, 3).End(xlUp).Row
        Set Rng = .Cells(2, 3).Resize(lastRow - 1)
    End With

    For Each Cell In Rng
        If IsEmpty(Cell) Then
            If Rng2 Is Nothing Then
                Set Rng2 = Cell
            Else
                Set Rng2 = Union(Rng2, Cell)
            End If
        End If
    Next

    If Not Rng2 Is Nothing Then Rng2.EntireRow.Delete

End Sub