code ne fonctionne pas

Bonsoir à tous, j'ai un gros probleme car je suis débutant en vba
le code ci dessous et une mise en forme conditionnelle qui dit: je selectionne la cellule h6 alors que je voudrais l'appliquer a la rangée h3:h10000
qui dit que si la premiere lettre du nom ecrit dans L6 est un J et que si le chiffre en h6 appartient a la plage joy48hr ,alors il se met , en gras, et en bleu
mais quand je l'execute il me met " impossible de définir la propriete bold de la classe Font
pouvez vous m'aider ? Merci pour votre aide ( pouvez vous me dire à quoi correspond TintAndShade = 0 ?)


Range(h6).Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=SI(GAUCHE(L6;1)=""j"";NB.SI(joy48hr;H6);"""" )"
Selection.FormatConditions(Selection.FormatConditi ons.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Bold = True
.Italic = False
.Color = -1003520
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
End Sub