Macro application couleur si modif cellule sur colonne precise

Bonjour,

Je travaille actuellement sur un tableau excel avec des macros (je suis novice mais je m'applique).
Ce classeur comprend 2 feuilles (1 pour l'équipe technique et 1 pour moi qui correspond à la partie gestion).
J'ai donc une première macro qui à partir de la feuille 1 nommée "Technique" va automatiquement venir coller dans la feuille 2 nommée "Facturation" les données qui m'intéressent pour ma facturation et ce dès qu'une ligne est saisie dans la feuille Technique.
Le feuille "Facturation" ne sera pas identique à la feuille Technique car je vais y insérer au fur et à mesure des lignes de prestations à facturer.
Mais j'ai besoin de savoir si une modif est appliquée par l'équipe Technique dans la feuille Technique parce que peut-être qu'elle se serait trompée sur le nom d'une personne, afin de savoir si cela va impacter ma feuille "Facturation".
Je me suis dit que je devais intégrer une macro événementielle dans ma feuille nommée Technique qui mettrait systématiquement en couleur la cellule modifiée pour que je puisse effectuer un contrôle.
Problématique :

- dès que j'intègre une nouvelle ligne la macro considère que c'est une modification de cellule et donc me la colorie
- sur une cellule pré-remplie, il se peut qu'une cellule soit vide car on a pas encore la donnée. Et donc on complétera par la suite. Il faut que cela soit aussi pris en compte comme la modification d'une cellule.

Donc je veux que ma macro ne s'applique que sur 5 colonnes précises et ne prennent pas en compte l'intégration de données sur une ligne vide mais ne tiennent compte que des lignes ou des données sont déjà existantes.

Voici ce que cela donne (test sur uniquement la colonne n°2):


Private Sub Worksheet_Change(ByVal target As Range)

'definition des colonnes
Set sel = Range("B3", selection.End(xlDown))

'debut d'action macro evenementiel
If Not Intersect(target, sel) Is Nothing Then

'Call ctrl

ActiveCell.Select
With selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 5296274
.TintAndShade = 0
.PatternTintAndShade = 0
End With


End If

End Sub


VOICI LA MACRO NOMMEE "CTRL"

Sub ctrl()

If Cells(ActiveCell.Row, 16).Value > 0 Then

ActiveCell.Select
With selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 5296274
.TintAndShade = 0
.PatternTintAndShade = 0
End With


End If
End Sub


Pour essayer de faciliter le contrôle, j'ai ajouté une colonne qui compte le nombre de cellules contenant une donnée sur un ligne ce qui donne un repère.

J'espère que vous allez comprendre et si pas je peux vous donner mon tableau test.

Bonne soirée et un grand merci.

Sabrina