[COLOR="DarkSlateGray"][B]Private Sub Worksheet_Change(ByVal Target As Range)
Dim codCol As Range, oCel As Range, oDat As Range, antCel As Range
Set antCel = Range("A2:A5, A11, C1:E1") [COLOR="SeaGreen"]'Plage des cellules qui provoquent une mise à jour dans la colonne 9. À adapter...[/COLOR]
If Not Intersect(Target, antCel) Is Nothing Then
With Range(Cells(1, 9), Cells(Rows.Count, 9).End(xlUp))
.Copy Destination:=.Cells
End With
ElseIf Not Intersect(Target, Columns(9)) Is Nothing Then
Set codCol = Range("Z3:Z13")
With Intersect(Target, Columns(9))
For Each oDat In .Cells
For Each oCel In codCol.Cells
If oDat.Value = oCel.Value Then
oDat.Offset(0, 1).Resize(1, 15).Interior.ColorIndex = oCel.Interior.ColorIndex
Exit For
End If
Next oCel
Next oDat
End With
End If
End Sub[/B][/COLOR]