Private Sub Worksheet_Change(ByVal Target As Range)
If Not Target.Address = "$B$1" Then Exit Sub
Dim cellFind As Range
Set cellFind = ThisWorkbook.Sheets("BDD").Range("B:H").Find(Target.Text, , xlValues, xlWhole)
If cellFind Is Nothing Then Exit Sub
ThisWorkbook.Sheets("BDD").Range(cellFind.Offset(4, 0), cellFind.Offset(11, 6)).Copy ThisWorkbook.Sheets("Visualisé").Range("A6")
End Sub