Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Columns(1)) Is Nothing Then Exit Sub
Cancel = True
With Cells(Target.Row, 1).Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=Etat"
End With
With Range(Cells(Target.Row, 1), Cells(Target.Row, 10))
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:="=$A" & Target.Row & "=""E"""
.FormatConditions(1).Interior.ColorIndex = 6
.FormatConditions.Add Type:=xlExpression, Formula1:="=$A" & Target.Row & "=""T"""
.FormatConditions(2).Interior.ColorIndex = 4
.FormatConditions.Add Type:=xlExpression, Formula1:="=$A" & Target.Row & "=""R"""
.FormatConditions(3).Interior.ColorIndex = 33
End With
End Sub