Affecter des valeur d'un tableau dans des cellules en fonction d'une valeur

bonjour

Je cherche a optimiser un code pour remplir des cellules contenant le "nom, prénom, fonction" stocker dans un tableau d'une page sur une autre en fonction d'un numéro de matricule que je rentre dans une cellule. j'ai des macros qui fonctionne bien mais pas du tout optimisé.

If Target.Address = "$J$8" Then
If LCase(Target) = "MATRICULE" Then Call NOM DE LA MACRO

Sub NOM DE LA MACRO()

Worksheets("accueil").Range("j12") = Worksheets("feuil4").Range("c19")
Worksheets("accueil").Range("j16") = Worksheets("feuil4").Range("d19")
Worksheets("accueil").Range("j20") = Worksheets("feuil4").Range("e19")

End Sub

ainsi de suite

ce tableau commence de "C19:E19" à "C35:E35"

merci d'avance

Edit modo : mis code entre balises de code. Merci d'utiliser l'icone </> dans la barre de menu lorsque vous postez un code

Salut,

bonjour

ci-joint un fichier test

Salut,

En premier lieu, UN TOUT GRAND MERCI à toi de m'avoir répondu

Ton fichier ne comporte aucune macro, les bouts de macros que tu as livrés sur ton premier message ne correspondent pas à ton fichier modèle, tu n'expliques pas comment fonctionne ton fichier !! Comment veux-tu que l'on t'aide ?

Amicalement.