Fomat de bordure en fonction texte d'une cellule

Bonjour,

je souhaiterai personnaliser le format d'une cellule avec des bordure diagonale de maniere a formé une croix dans la cellule a condition qu'une autre cellule contient du texte.

Ex: si A22 contient du texte alors la cellule I22 aura un format de bordure avec les barres diagonales sinon ne rien faire.

Merci d'avance.

Bonjour

Code à placer dans le module de la feuille (clic droit sur l'onglet de la feuille ---> Visualiser le code)

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Count > 1 Then Exit Sub
  If Not Intersect(Columns("A"), Target) Is Nothing Then
    If Target <> "" Then
      Range("I" & Target.Row).Borders(xlDiagonalUp).Weight = xlThin
      Range("I" & Target.Row).Borders(xlDiagonalDown).Weight = xlThin
    Else
      Range("I" & Target.Row).Borders(xlDiagonalUp).LineStyle = xlNone
      Range("I" & Target.Row).Borders(xlDiagonalDown).LineStyle = xlNone
    End If
  End If
End Sub

C'est parfait merci,bien.