Boucle VBA

commencer à la première ligne du classeur 'requete journaux macro
Tant que Dans le classeur 'requete journaux macro', colonne B n'est pas vide 
        dans le classeur 'requete générale' , faire une recherche sur base du contenu de la cellule de la colonne  A de 'requete journaux macro'
       Copier dans B de 'requete journaux macro' le contenu trouvé par la recherche
       passer à la ligne suivante dans le classeur 'requete journaux macro' 
continuer tant que. 

Sub jujumty()
Dim nlig As Long
Dim journaux As Worksheet, articles As Worksheet
nlig = 1
Set journaux = ThisWorkbook.Sheets("Journaux")
Set articles = ThisWorkbook.Sheets("Articles")
Do While journaux.Cells(nlig, 2) <> ""
    'faire la recherche, dans articles, du contenu de journaux.Cells(nlig, 1)
    ' journaux.Cells(nlig, 2) = la valeur issue de la recherche
    nlig = nlig + 1
Loop
End Sub

Sub jujumty()
Dim nlig As Long
Dim journaux As Worksheet, articles As Worksheet
Dim trouve As Range
nlig = 2
Set journaux = ThisWorkbook.Sheets("Journaux")
Set articles = ThisWorkbook.Sheets("Articles")
Do While journaux.Cells(nlig, 2) <> ""
    Set trouve = articles.Cells.Find(What:=journaux.Cells(nlig, 1), _
        LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
        xlNext, MatchCase:=False, SearchFormat:=False)
    If Not trouve Is Nothing Then
        journaux.Cells(nlig, 2) = trouve
    End If
    nlig = nlig + 1
Loop
End Sub