Bonjour
Sub rech_ref_client()
Set ws = Sheets("Base")
' recherche référence
Ref_a_rechercher = "DEU-098053"
Set Rng = ws.Range("E:E").Find(Ref_a_rechercher, LookIn:=xlValues, lookat:=xlWhole)
If Not Rng Is Nothing Then
lig = Rng.Row
MsgBox "Bénéficiaire : " & ws.Cells(lig, 6)
End If
' recherche client
nomcli = "COLAS NORD-EST"
Set Rng = ws.Range("D:D").Find(nomcli, LookIn:=xlValues, lookat:=xlWhole)
If Not Rng Is Nothing Then
lig = Rng.Row
MsgBox "Référence client : " & ws.Cells(lig, 5)
End If
End Sub
Ne sachant pas où tu voulais chercher et dans quelles conditions, ce code te donne une idée de la recherche à faire.
Après, je n'ai peut-être pas bien compris ton problème ??
A+