Exécution automatique

Bonjour,

je cherche comment exécuter une la macro "cacher" lorsque les celles d'une feuille sont changées.

Voici la macro:

Sub cacher()

For i = 6 To 55

If IsEmpty(Sheets("Feuil1").Cells(i, 3)) = True Then

ActiveWorkbook.Sheets("Feuil1").Cells(i, 2).Font.Color = RGB(255, 255, 255)

Else

ActiveWorkbook.Sheets("Feuil1").Cells(i, 2).Font.Color = RGB(0, 0, 0)

End If

Next

End Sub

Merci.

Bonsoir,

Code suivant dans le module de la feuille concernée :

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Range("C6:C55"), Target) Is Nothing Then
        If IsEmpty(Target) = True Then
            Target.Offset(0, -1).Font.Color = RGB(255, 255, 255)
        Else
            Target.Offset(0, -1).Font.Color = RGB(0, 0, 0)
        End If
    End If
End Sub