Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range
Application.EnableEvents = False
Set r = Intersect(Target, [F5:F9])
If Not r Is Nothing Then
For Each r In r
r(1, -1) = ""
If r = "Ingénierie" Then r(1, -1) = r(1, 0) * 1100
If r = "Facilitation" Then r(1, -1) = r(1, 0) * 900
If r = "Information" Then r(1, -1) = r(1, 0) * 20
Next
End If
Set r = Intersect(Target, [E5:E9])
If Not r Is Nothing Then
For Each r In r
If r(1, 2) = "Ingénierie" Then r(1, 0) = r * 1100
If r(1, 2) = "Facilitation" Then r(1, 0) = r * 900
If r(1, 2) = "Information" Then r(1, 0) = r * 20
Next
End If
Set r = Intersect(Target, [D5:D9])
If Not r Is Nothing Then
For Each r In r
If r(1, 3) = "" Then r = ""
If r(1, 3) = "Ingénierie" Then r = r(1, 2) * 1100
If r(1, 3) = "Facilitation" Then r = r(1, 2) * 900
If r(1, 3) = "Information" Then r = r(1, 2) * 20
Next
End If
Application.EnableEvents = True
End Sub