Private Sub Worksheet_Change(ByVal Target As Range)
If Left$(Target.Address, 3) = "$A$" Then
Range("B" & Target.Row).Value = Evaluate("INDEX(OFFSET(Feuil1!$[COLOR="Red"]B[/COLOR]$1,0,0,COUNTA(Feuil1!$A:$A),1),MATCH($A$" & Target.Row & ",OFFSET(Feuil1!$A$1,0,0,COUNTA(Feuil1!$A:$A)),1))")
Range("C" & Target.Row).Value = Evaluate("INDEX(OFFSET(Feuil1!$[COLOR="Red"]C[/COLOR]$1,0,0,COUNTA(Feuil1!$A:$A),1),MATCH($A$" & Target.Row & ",OFFSET(Feuil1!$A$1,0,0,COUNTA(Feuil1!$A:$A)),1))")
Range("D" & Target.Row).Value = Evaluate("INDEX(OFFSET(Feuil1!$[COLOR="Red"]D[/COLOR]$1,0,0,COUNTA(Feuil1!$A:$A),1),MATCH($A$" & Target.Row & ",OFFSET(Feuil1!$A$1,0,0,COUNTA(Feuil1!$A:$A)),1))")
End If
End Sub