VBA changer valeur celulle en fonction de plusieurs cellules

Bonjour à tous !

J'ai cherché un peu partout mais je ne trouve pas comment réaliser ma macro ...

Je cherche à implémenter une macro qui change la valeur des cellules d'une colonne en fonction de la valeur des cellules de plusieurs colonnes.

Exemple pour la ligne 9 :

Ma cellule à changer est E9,

C'est le dernier évènement qui devra mettre à jour le statut de la liste déroulante en cellule E9

Si C9 est renseignée donc E9 = "encours" (on ne teste pas les autres cellules)
Si D9 < date du jour et C9 ="" et F9="" donc E9 = "non recetté"
Si F9 et C9 sont renseignés donc E9 = "OK"
Si C9 est renseigné et J9, P9, V9, AB9, ou AH9 est renseigné donc E9 = "NOK"

Le fichier doit permettre l'utilisation suivante :

- Je renseigne une date en C9, on passe le statut en E9 à en cours
- Si aucune date n'est renseignée en C9 et F9 et que la date du jour > D9, on passe le statut en E9 à non recetté (on a dépassé la date prévisionnelle de fin de recette sans commencer le scénario)
- Je renseigne une date de fin en F9 et une date de début est renseignée en C9, on passe le statut en E9 à OK (scénario commencé et finalisé, mais si on retouche aux cellules J9, P9, V9, AB9, ou AH9 on repasse à NOK "et le luxe serait d'effacer la cellule F9")
- Si j'ai une date de début renseigné en C9 (Vrai même si la date de fin est renseignée en F9) et que les cellules J9, P9, V9, AB9, ou AH9 ne sont pas vides, on passe le statut en E9 à NOK.

J'ai commencé à écrire un code par rapport à ce que j'ai trouvé sur le net mais je n'arrive pas à l'adapter pour tester plusieurs cellules :

Code :
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, [C:C]) Is Nothing And Target <> "" Then
Target(1, 3) = "ENCOURS"
End If
End Sub

Merci beaucoup de votre aide !

Cdt,

Sims