Sub Macro1()
Noms = InputBox("Quel est le salarié recherché ?", "DRH DEPARTEMENT")
If Noms <> "" And Evaluate("COUNTIF(A6:B16," & """" & Noms & """)") > 0 Then
sal = WorksheetFunction.VLookup(Noms, Range("SALARIES!A6:B16"), 2, False)
MsgBox " Le salaire de M. " & UCase(Noms) & " est de " & sal & " Euros", vbOKOnly, "DIRECTION DES RESSOURCES HUMAINES"
End If
End Sub