A
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C3:F" & Range("A65536").End(xlUp).Row)) Is Nothing Then
Cells(Target.Row, 2).Value = Cells(2, Range("IV" & Target.Row).End(xlToLeft).Column).Value
End If
End Sub
A++=RECHERCHE(9^9;C:C)