Bonjour, je n'arrive pas à faire fonctionner cette macro.
Cette macro a pour but de modifier les caractéristiques d'affichage en fonction du contenu : le gras, l'italique, le soulignement, la police et la taille de caractère.

Sub MiseEnEvidence()

Action.Execute MiseEnEvidence Until ActiveCell=""
DependingOn.Case ActiveCell
Case Is >= 10
Selection.Police.IndexColor = 3
Selection.Police.Bold = True
Case 5 To 9
Selection.Police.Underline = xlMono
Case 1 To 4
Selection.Police.Size = 18
Case 0
Selection.Police.IndexColor = 2
End DependingOn
ActiveCell.Shift(1, 0).Active
Loop

End Sub