Private Sub Worksheet_Change(ByVal Target As Range)
Dim ColSem As Long
If Intersect(Range("Heuresjours"), Target) Is Nothing Then Exit Sub
ColSem = 9 + Right(Range("C3"), 2) * 2
Cells(Target.Row, ColSem) = IIf(Cells(Target.Row, 9) > 0, Cells(Target.Row, 9), "")
End Sub