Erreur Microsoft Ligne Non-Vide !!!

Dim c As Range
Dim ligne As Integer
Dim cpt As Integer
Dim cptligne As Byte

cpt = 40
ligne = 1
Set c = Cells(ligne, 4)

Do While c <> ""
    Set c = Cells(ligne, 4)
    If ligne Mod 40 = 0 Then
    ligne = ligne + 1
    
Else
    If c <> c.Offset(1, 0) Then
        Rows(ligne + 1 & ":" & cpt).Insert
        ligne = cpt + 1
        cpt = cpt + 40
        cptligne = 0
    ElseIf c.Offset(0, -2) <> c.Offset(1, -2) And _
        c.Offset(0, -2) Mod 2 <> c.Offset(1, -2) Mod 2 Then
        
        Rows(ligne + 1 & ":" & cpt).Insert
        ligne = cpt + 1
        cpt = cpt + 40
        cptligne = 0
    Else:

        ligne = ligne + 1
        cptligne = cptligne + 1
        If cptligne = 39 Then
            cpt = cpt + 40
            cptligne = 0
        End If
    End If
    End If
Loop