Code VBA à la place code MFC

Bonjour,

Je suis a la recherche d'un code VBA pour remplacer un code MFC.

En MFC je rentre comme code

=A6<>""

pour avoir des lignes de bordure verticale de la colonne "A R"

Je vous remercie de votre aide

Cordialement

Max

Bonjour

Avec l'enregistreur...

Sub MFC2()
    Range("AR2:AR19").Select
    Selection.FormatConditions.Delete
    'Si la suite est A7, A8, tu écriras =$A6 au lieu de $A$6
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$A$6<>"""""
    With Selection.FormatConditions(1).Borders(xlLeft)
        .LineStyle = xlContinuous
    End With
    With Selection.FormatConditions(1).Borders(xlRight)
        .LineStyle = xlContinuous
    End With
End Sub

Cordialement