Extraire une donnée dans une autre feuille Excel

Bonjour,

Débutante en Excel, je souhaite créer une macro répondant aux cahier de charges suivants :

Dans l'onglet "HISTORIQUE" je dispose d'une liste d'article. A chaque article, je souhaite associer une catégorie/famille d'article.

Cette classification des articles se trouve dans l'onglet "DATA" (correspond une espèce de base de données).
L'algorithme est le suivant :

Dans "HIstorique"
Pour la première ligne où la colonne catégorie est vide
Je copie la valeur NomArticle

Dans "DATA"
Je recherche dans la colonne A la valeur "NomArticle"
Quand trouvée, j'extrais le numéro de la ligne Lig
Ensuite, je regarde dans la colonne B (Catégorie) la valeur à la ligne Lig.
J'enregistre cette valeur

Dans l'onglet "Historique"
Je copie la valeur Categorie article à la ligne NomArticle correspondant.


J'avais écrit ce code là : mais ça ne fonctionne pas. Mon gros problème est le switch entre les onglets

Sub Categorie()

Sheets("HISTORIQUE").Select
k = 4 'correspond à la première ligne de mon tableau dans l'onglet Historique
Do While Range("b" & k).Value <> ""
k = k + 1
Exit Do

Worksheets("DATA").Activate
f = 1
Do While Range("a" & f).Value <> Worksheets("HISTORIQUE").Range("a" & k)
f = f + 1
Exit Do

Worksheets("HISTORIQUE").Activate
Worksheets("HISTORIQUE").Range("b" & k).Value = Worksheets("DATA").Range("d" & f).Value

Loop

Loop

End Sub

Mais je ne comprends pas. rien ne se passe.

Pouvez-vous m'aider s'il vous plait?

En vous remerciant,

Cordialement.

Mlle Daria