Amélioration code VBA

Re : Amélioration code VBA

Bonjour,

Essaye ces syntaxes et garde la meilleure :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then
On Error Resume Next
Target.EntireRow.Range("A1😀1").Interior.ColorIndex = [etat].Find(Target, LookAt:=xlWhole).Interior.ColorIndex
On Error GoTo 0
End If
End Sub


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then
Dim C As Range
Set C = [etat].Find(Target, LookIn:=xlValues, LookAt:=xlWhole)
If Not C Is Nothing Then
Target.EntireRow.Range("A1😀1").Interior.ColorIndex = C.Interior.ColorIndex
End If
End If
End Sub