Bonsoir à tous,
Code à copier dans le module de ta feuille :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row >= 6 And Target.Row <= 8 And _
Target.Column >= 4 And Target.Column <= 7 Then
Target.Interior.ColorIndex = 4
Target.Value = Cells(5, Target.Column)
Cells(Target.Row, 8).Value = Cells(Target.Row, 4).Value + _
Cells(Target.Row, 5).Value + Cells(Target.Row, 6).Value _
+ Cells(Target.Row, 7).Value
End If
End Sub
@+
Ronan