Private Sub Worksheet_Change(ByVal target As Range)
'Si la valeur d'une cellule de la plage C5:F5 change then
If Not Intersect(target, Range("E5:E14")) Is Nothing Then
'-mettre en H5 =E5 si E5 est la cellule qui a changé
Range("H" & target.Row) = "=E" & target.Row
'-mettre la couleur du fond de la cellule E5 en orange
target.Interior.ColorIndex = 44
'-mettre l'entête de la colonne E en I5 soit =D4
Range("I" & target.Row) = Cells(4, target.Column)
'-mettre en C5 =J5/C25; en D5 =J5/C27 et en F5 =J5/C24
Range("C" & target.Row) = "=J" & target.Row & "/C25"
Range("D" & target.Row) = "=J" & target.Row & "/C27"
Range("F" & target.Row) = "=J" & target.Row & "/C24"
' Il manque mettre en J5 le calcul
Range("J" & target.Row) = Range("C26") * target
End If
End Sub