Sub cherche()
Dim val As Range
'sélection des différentes valeurs par l'utilisateur
Set ValeursCherchées = Application.InputBox("selectionnez la ou les ligne(s) à chercher", Type:=8)
'parcours de la selection pour rechercher chaque valeur
For Each val In ValeursCherchées
ValEnCours = val.Value
'affichage juste pour control de la valeur cherchée
MsgBox ("on cherche la présence de la valeur: ") & ValEnCours
With Workbooks("fichierB.xlsx").Sheets("Sheet1").Range("D:D")
Set trouve = .Find(ValEnCours, lookat:=xlWhole)
If Not trouve Is Nothing Then
c = trouve.Row
'affichage de la ligne où a été trouvée la valeur dans le fichier B
'MsgBox ("la valeur cherchée est trouvée en ligne: ") & c
Cells(val.Row, 3) = c
.Cells(c, 1).Interior.ColorIndex = 4
Else: MsgBox ("la valeur " & ValEnCours & " n'existe pas dans le fichier")
End If
End With
Next val
End Sub