Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim Coul, Est As Range, Trouve As Range
If ActiveSheet.Name = "Synthèse" Or Target.Count > 1 Then Exit Sub
If Intersect(Target, Range("C5:C8")) Is Nothing Then Exit Sub
Coul = Target.Interior.ColorIndex
Target.Interior.ColorIndex = IIf(Coul = xlNone, 4, IIf(Coul = 4, 6, IIf(Coul = 6, 3, xlNone)))
With Sheets("Synthèse")
Set Est = .Rows(3).Find(Target.Offset(, -2))
If Not Est Is Nothing Then
Set Trouve = .[A:A].Find(ActiveSheet.Name)
If Not Est Is Nothing Then Target.Copy .Cells(Trouve.Row, Est.Column)
End If
End With
Range("B2").Select
End Sub