Mise en forme conditionnelle

Bonjour,

Je calcule des augmentation ou diminution en % et je souhaiterai que lorsque le % est positif la cellule soit verte et lorsqu'il est négatif la cellule soit rouge.

J'ai créé cette procédure :

Public Sub formatcomp(ByVal sheet As String, ByVal rng As String)
    
    With Worksheets(sheet).Range(rng)
        .FormatConditions.Delete
        .FormatConditions.Add xlCellValue, xlBetween, 0, 1
        With .FormatConditions(1)
            .NumberFormat = "0,00%"
            .Interior.ColorIndex = 4
        End With
        .FormatConditions.Add xlCellValue, xlLess, 0
        With .FormatConditions(2)
            .Interior.ColorIndex = 3
            .NumberFormat = "0,00%"
        End With
    End With
        
End Sub

Mon problème est que lorsque la cellule est vide, elle se colorie en vert or je voudrai qu'elle soit sans fond.

J'ai essayé en rajoutant ça dans ma procédure :

    
    Dim zoneamodifier As Range
    Dim cellule As Range
   
Set zoneamodifier = Range(rng)
    For Each cellule In zoneamodifier
        If IsEmpty(cellule) = True Then
            cellule.Interior.ColorIndex = xlColorIndexNone
        End If
    Next cellule
 

mais cela ne fonctionne pas. Sauriez vous comment faire s'il vous plait ?

Merci :)