Sub cherche()
Dim val As Range
Dim i As Integer, nb As Integer
'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("A:A")
Set trouve = .Find(ValEnCours)
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
Else: MsgBox ("la valeur " & ValEnCours & " n'existe pas dans le fichier")
End If
End With
Next val
nb = Application.WorksheetFunction.Count(ValeursCherchées)
i = 1
Do While i < nb
Cells(i, 3).Value = c
i = i + 1
Loop
End Sub