Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i&
If Not Intersect(Target, Range("D5:J10")) Is Nothing Then
If Not Target.Value = "" Then
Range("A2:A65536").ClearContents
With Sheets("BASE A ALIMENTER")
For i = 3 To .Range("A65536").End(xlUp).Row
If IsEmpty(.Cells(i, 1).Value) = False Then
If .Cells(i, 5).Value = Target.Value Then
Cells(Range("A65536").End(xlUp).Row + 1, 1).Value = .Cells(i, 1).Value
End If
End If
Next i
End With
End If
End If
End Sub