[COLOR="DarkSlateGray"][B]Private Sub Worksheet_Change(ByVal Target As Range)
Dim oCel As Range
If Not Application.Intersect(Target, Range("E6:E36")) Is Nothing Then
For Each oCel In Application.Intersect(Target, Range("E6:E36"))
If oCel.Value <> "" Then
If oCel.Offset(0, -3).Value = "" Then 'REPOS DETECTE
oCel.Offset(0, 11) = "ECHANGE DE REPOS"
Else
oCel.Offset(0, 11) = "RENFORT"
End If
End If
Next oCel
End If
End Sub[/B][/COLOR]