Sub surbrillancenombresnegatifs() Dim Rng As Range For Each Rng In Selection If WorksheetFunction.IsNumber(Rng) Then If Rng.Value < 0 Then Rng.Font.Color= -16776961 End I f End I f Next End Sub
Sélectionnez une plage de cellules et exécutez ce code. Il vérifiera chaque cellule de la plage et mettra en surbrillance toutes les cellules où vous avez un nombre négatif.