Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim Coul, Est As Range, Li As Long
If Sh.Name = "Synthèse par domaine" And Sh.Name = "Bilan s" Or Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Union(Range("BU58"), Range("BU64:BU65"), Range("BU67"), Range("BU76"), Range("BU80:BU82"), Range("BU89:BU92"))) Is Nothing Then
Coul = Target.Interior.ColorIndex
Target.Interior.ColorIndex = IIf(Coul = xlNone, 4, IIf(Coul = 4, 6, IIf(Coul = 6, 3, xlNone)))
With Sheets("Synthèse par domaine")
Set Est = .Rows(8).Find(Target.Offset(, -72))
If Not Est Is Nothing Then
For Li = 11 To .Cells(Rows.Count, "P").End(xlUp).Row
If .Cells(Li, "P") = Sh.Name Then Target.Copy .Cells(Li, Est.Column): Exit For
Next
End If
End With
With Sheets("Bilan s")
Set Est = .Rows(9).Find(Target.Offset(, -72))
If Not Est Is Nothing Then
For Li = 11 To .Cells(Rows.Count, "P").End(xlUp).Row
If .Cells(Li, "P") = Sh.Name Then Target.Copy .Cells(Li, Est.Column): Exit For
Next
End If
End With