Bonjour,
A mettre dans le module de la feuille "Feuil1". La cible est la cellule C6. Dans cette dernière tu entres soit la référence, soit le nom et tu auras en B6 l'inverse si trouvé attention toutes fois aux espaces parasites que tu as dans la colonne B :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cel As Range
If Target.Count > 1 Then Exit Sub
If Target.Address(0, 0) <> "C6" Then Exit Sub '<-- seule C6 est visée
'recherche dans les références pour retourner le nom...
'elles doivent être seulement numériques donc, pas de lettre !
If IsNumeric(Target.Value) Then
Set Cel = Worksheets("Feuil2").Columns("A:A").Find(Target.Value, , xlValues, xlWhole)
If Not Cel Is Nothing Then Set Cel = Cel.Offset(, 1)
'sinon, recherche dans les noms pour retourner la référence
Else
Set Cel = Worksheets("Feuil2").Columns("B:B").Find(Target.Value, , xlValues, xlWhole)
If Not Cel Is Nothing Then Set Cel = Cel.Offset(, -1)
End If
'si trouvé, inscrit en B6 soit la référence, soit le nom sinon, inscrit une valeur d'erreur
Application.EnableEvents = False
With Target.Offset(, -1)
If Not Cel Is Nothing Then .Value = Cel.Value Else .Value = "#VALEUR!"
End With
Application.EnableEvents = True
End Sub