Mise en forme conditionnelle avancé VBA

Bonjour,

Finalement j'ai trouvé par moi même. Certainement pas la façon la plus adroite de faire mais c'est le résultat qui compte, je bricole le VBA plus que je ne le maitrise mais j'arrive à faire des choses c'est déjà ça :

Sub Test()

Dim nbrl As Integer
Dim nom As String
Dim Position As Integer
Position = 1
nom = ActiveSheet.Name
i = 0
nbrl = Application.WorksheetFunction.CountA(Sheets(nom).Range("$A:$A"))

'Boucle
Do Until i = nbrl
Set MaPlage = Columns("A:L").Rows(Position + 1)
If Sheets(nom).Range("A" & Position).Value <> Sheets(nom).Range("A" & (Position + 1)).Value Then
MaPlage.Borders(xlEdgeTop).Weight = xlMedium

End If

Position = Position + 1
i = i + 1
Loop

End Sub