Afficher texte cellule feuille1 a partir des N° en colonne feuille2

Bonjour,

Je vous remercie d'ores et déjà de l'aide que vous voudrez bien m'apporter.

Etant, assez limité en VBA mais très curieux d'apprendre, j'aimerais connaitre

la forme de résoudre l' interrogation soumise ci-dessous:

En inscrivant dans la cellule B2 (feuille1) un N° provenant de la colonne B (feuille2), je souhaiterais que le mot "Europe" s'inscrive automatiquement dans la cellule B8 (feuille1)

De même avec un chiffre figurant sur la colonne C (feuille2) alors B8 afficherait "Afrique"

(Voir fichier exemple en PJ)

Vous remerciant du temps que vous voudrez bien m'accorder, je vous souhaite une très bonne journée.

Bonjour,

A adapter.

Cdlt.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim lo As ListObject, r As Range
    If Target.Address = "$B$2" Then
        Me.Cells(8, 2).Value = vbNullString
        Set lo = Worksheets("Codes").Range("T_Codes").ListObject
        With lo.DataBodyRange
            Set r = .Find(what:=Target.Value, LookIn:=xlValues, lookat:=xlWhole)
            If Not r Is Nothing Then
                Me.Cells(8, 2).Value = lo.HeaderRowRange(r.Column)
            End If
        End With
    End If
End Sub

Je vais essayer de comprendre le fonctionnement de ce code mais d'ores et déjà un grand merci car il fonctionne a merveille.

je vous souhaite une très bonne fin de journée ainsi qu'un excellent week-end