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,