Private Sub Worksheet_Change(ByVal Target As Range)
Dim C As Range
'Si plusieurs cellules ont été modifiées, on sort de la procédure
If Target.Count > 1 Then Exit Sub
'Si la cellule modifiée appartient aux plages de saisie I8:L71 et N8:N71
If Not Application.Intersect(Target, Range("I8:L71,N8:N71")) Is Nothing Then
'Si les 2 saisies ont été faites (client et semaine)
If Target <> "" And Cells(Target.Row, 4) <> "" Then
' la feuille cible est "PLANNING"
With Worksheets("PLANNING")
'On cherche le client en colonne A
Set C = .Columns(1).Find(Cells(Target.Row, 4), , xlValues, xlWhole)
'Si le client est trouvé et que la saisie de la semaine est numérique
If Not C Is Nothing And IsNumeric(Target.Value) Then
'On applique la couleur de remplissage correspondant à l'opération dans le planning
.Cells(C.Row, Target.Value + 1).Interior.Color = Cells(6, Target.Column).Interior.Color
End If
End With
End If
End If
End Sub