Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As String
Dim j As String
j = Target.Column
i = Target.Row
If j = 4 Then 'Condition colonne 4
If i >= 11 And i <= 1010 Then 'Condition de la ligne 11 à 1010
If Worksheets("LISTE").Cells(i, 4).Value <> Worksheets("LISTE").Cells(i, 43).Value Then 'Si la valeur est différente à la valeur d'une cellule morte
Worksheets("LISTE").Cells(i, 5).Value = Application.VLookup(Worksheets("LISTE").Cells(i, 4).Value, Worksheets("Client").Range("A2:E100000"), 2, False) 'Ecrire dans les 3 cellules situé à gauche de la Target une recherche V
Worksheets("LISTE").Cells(i, 6).Value = Application.VLookup(Worksheets("LISTE").Cells(i, 4).Value, Worksheets("Client").Range("A2:E100000"), 3, False)
Worksheets("LISTE").Cells(i, 7).Value = Application.VLookup(Worksheets("LISTE").Cells(i, 4).Value, Worksheets("Client").Range("A2:E100000"), 4, False)
Else: GoTo Fin
End If
Else: GoTo Fin
End If
Else: GoTo Fin
End If
Worksheets("LISTE").Cells(i, 43).Value = Worksheets("LISTE").Cells(i, 4).Value
'Recopier la nouvelle valeur dans la cellule morte
Fin: End Sub