Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 And Target.Column = 14 Then
If Target.Interior.ColorIndex = 15 And UCase(Target.Value) = "S" Then
Range(Cells(Target.Row - 3, Target.Column - 7), Cells(Target.Row, Target.Column)).Copy Destination:=Feuil3.Cells(Target.Row - 3, Target.Column - 7)
End If
End If
End Sub