if then else avec cellule variable

Sub Bouton1_Clic()
i = 2
Do
    If Cells(i, 1) = Cells(i + 1, 1) Then
        i = i + 1
        Rows(i).Insert
        Cells(i, 1) = Cells(i - 1, 1)
        Cells(i, 7) = "livraison"
        Cells(i, 6).Value = Cells(i - 1, 1)
    End If
    i = i + 1
Loop Until Cells(i, 1) = ""
End Sub

Sub Bouton1_Clic()
i = 2
Do
    If Cells(i, 1) <> Cells(i + 1, 1) Then
        i = i + 1
        Rows(i).Insert
        Cells(i, 1) = Cells(i - 1, 1)
        Cells(i, 7) = "livraison"
        Cells(i, 6).Value = Cells(i - 1, 1)
        Else
    End If
    i = i + 1
Loop Until Cells(i, 1) = ""
End Sub

Cells(i, 6).Value = Cells(i - 1, 1)

Sub Bouton2_Clic()
Dim DerLigne As Long, CelDeb As Long
Dim NoCom As String, Liv As String
Dim Montant As Double
    DerLigne = Range("A" & Rows.Count).End(xlUp).Row
    CelDeb = 2
    While CelDeb <= DerLigne
        NoCom = Range("A" & CelDeb)
        j = WorksheetFunction.CountIf(Range("A:A"), Range("A" & CelDeb))
        For i = CelDeb To CelDeb + j - 1
            If Range("B" & i) = "colissimo" Then
                Liv = "livraison"
                Montant = Range("C" & i)
                Exit For
            End If
        Next i
        CelDeb = CelDeb + j
        Rows(CelDeb).Insert
        Cells(CelDeb, 1) = NoCom 'renvoie le numéro de commande
        Cells(CelDeb, 8) = Liv 'renseigne qu'il s'agit de la livraison
        Cells(CelDeb, 7).Value = Montant 'renvoie le Montant
        CelDeb = CelDeb + 1
        DerLigne = DerLigne + 1
        Liv = ""
        Montant = 0
    Wend
End Sub

Sub Bouton1_Clic()
i = 2
Do
    If Cells(i, 2) = "Colissimo" Or x = "" Then x = Cells(i, 3)
    If Cells(i, 1) <> Cells(i + 1, 1) Then
        i = i + 1
        Rows(i).Insert
        Cells(i, 1) = Cells(i - 1, 1)
        Cells(i, 7) = x
        Cells(i, 8) = "Livraison"
        x = ""
    End If
    i = i + 1
Loop Until Cells(i, 1) = ""
End Sub