Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Range
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("B:B")) Is Nothing Then
Set x = Sheets("Données Brutes").Range("B:B").Find(Target.Value, , xlValues, xlWhole, , , False)
If Not x Is Nothing Then
MsgBox "Veuillez coller les valeurs du tableau de marqueurs sur la feuille <Données Brutes>"
Application.Goto Sheets("Données Brutes").Range("D" & x.Row)
End If
End Sub