[VBA Excel] Dernière cellule d'une colonne à avoir des bordures

Sub Bordures()
For i = Range("A65500").End(xlUp).Row To 1 Step -1
    If Cells(i, "A").Borders.Count <> 0 Then Msgbox=("La cellule " & Cells(i,"A").address & " Contioent une bordure") : exit for
Next
End Sub

Sub Bordures()
For Each c In ActiveSheet.UsedRange
    If c.Borders.LineStyle = xlNone Then
        c.Interior.ColorIndex = xlNone
    Else
        c.Interior.ColorIndex = 3
    End If
Next
End Sub

Sub Bordures3()
DerLig = Cells.SpecialCells(xlCellTypeLastCell).Row
DerCol = Cells.SpecialCells(xlCellTypeLastCell).Column
MaCol = 2

If MaCol > DerCol Then Exit Sub

For Each c In Range(Cells(1, MaCol), Cells(DerLig, MaCol))
    If c.Borders.LineStyle = xlNone Then
        c.Interior.ColorIndex = xlNone
    Else
        c.Interior.ColorIndex = 3
    End If
Next
End Sub

 DerLig = Cells.SpecialCells(xlCellTypeLastCell).Row

 For Each c In Range(Cells(1, MaCol), Cells(DerLig, MaCol))
    If c.Borders.LineStyle = xlNone Then
        c.Interior.ColorIndex = xlNone
    Else
        c.Interior.ColorIndex = 3
    End If
Next

 For i= derLig to 1 step-1 
If cells(i,MaCol).Borders.LineStyle = xlNone Then
cells(i,MaCol).Interior.ColorIndex = xlNone
     Else
cells(i,MaCol).Interior.ColorIndex = 3
exit for
     End If
Next