Dim Mem As String
Private Sub WorkSheet_Change(ByVal Target As Range)
Dim Trouve As Range
Dim X As Long, Y As Long
Dim Z As String
Application.ScreenUpdating = False
If Not Intersect(Target, Range("A1:A" & Rows.Count)) Is Nothing And Target.Cells.Count = 1 Then
X = Target.Row
Y = Target.Column
Z = Target.Value
If Z <> "" Then
Set Trouve = Sheets("Recap").Range("A:A").Find(Target.Text, lookat:=xlWhole)
If Not Trouve Is Nothing Then Sheets("CSF").Cells(X, Y + 1).Value = Trouve.Offset(0, 1).Value
Else
If Mem <> "" Then Sheets("CSF").Cells(X, Y + 1).Value = ""
End If
End If
Sheets("CSF").Select
Application.ScreenUpdating = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count = 1 Then Mem = Target.Text
End Sub