Range("D5").Value = Range("B5").Value
derligne = Range("C" & Rows.Count).End(xlUp).Row
If derligne < 6 Then Exit Sub
With Range("C6:c" & derligne)
Set c = .Find(Range("C5"), LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
Range("D5").Value = c.Offset(0, 1).Value
End If
End With