ActiveCell.Select
Selection.Copy
Dim CODE As String
CODE = ActiveCell.Value
Sheets("BIBLEGO").Select
Columns("V:V").Select
Selection.Find(What:=CODE, After:=ActiveCell, LookIn:= _
xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext _
, MatchCase:=False, SearchFormat:=False).Activate
Range(ActiveCell, ActiveCell.Offset(0, 30)).Select
Selection.Copy
Sheets("Sous-détails").Select
ActiveCell.Activate
ActiveSheet.Paste Link:=True
ActiveCell.Select