Changer la taille du texte dans une cell selon un mot

Bonjour,

Voilà j'ai ce code (qui ne marche pas, mais qui est une bonne base.

    
If Not Application.Intersect(Target, Range("$H$8:$H$3000")) Is Nothing Then
        If Target.Count > 1 Then Exit Sub
        Application.EnableEvents = False
        Target = Left(UCase(Target), Jacklambert)
        Application.EnableEvents = True
    End If

Je voudrais que lorsque le mot Jacklambert par exemple est écris dans une cellule que la taille du texte soit mis à 8pt automatiquement.

Need backup! Merci,

Bonjour,

A tester...

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Application.Intersect(Target, Range("$H$8:$H$3000")) Is Nothing Then
        If Target.Count > 1 Then Exit Sub
        If Target = "Jacklambert" Then
            Target.Font.Size = "8"
        Else
            Target.Font.Size = "11"    ' exemple
        End If
    End If

End Sub

À vol d'oiseau le code semblait parfait, mais en test Excel, il n'a pas fonctionné

Re,

Voir fichier

Que serait Excel sans Jean-Éric!

Thanks a lot!