Salut tout le monde !

J'ai un petit soucis concernant une boucle do while. J'ai fais exactement comme un autre boucle que j'ai déjà fais mais le problème c'est que la, elle ne fonctionne pas.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Sub Creation_Article()
 
Dim L As Integer
 
 
MsgBox "Veuillez afficher la fenêtre de JDE, Merci"
Application.Wait (Now + TimeValue("0:00:04")) 'Temps de pause 04s
SendKeys "a", True
 
    L = 1
 
    Do While Cells(L, 2) <> ""
 
        If Cells(L, 2) = 1 Then
        MsgBox "ok"
        Cells(L, 3).Copy 'copier le code article à ajouter
        SendKeys "^v", True 'coller le code article
        SendKeys "{TAB}", True 'Aller sur la description
        Cells(L, 4).Copy 'copier le code article à ajouter
        SendKeys "^v", True 'coller la description
        SendKeys "{TAB}", True 'Aller sur le N° Catalogue
        SendKeys "{TAB}", True 'Aller sur la deuxieme ligne de la description
        SendKeys "{TAB}", True 'Aller sur Recherche
        SendKeys "{TAB}", True 'Aller sur type d'article
        Cells(L, 8).Copy 'copier le statut
        SendKeys "^v", True 'coller le statut
        End If
 
L = L + 1
Loop
MsgBox "Opération terminée."
End Sub
Dans ma colonne B (donc la colonne 2) j'ai une ligne qui comporte un 1. Donc normalement je devrais au moins avoir le msgbox "ok" apparaître. Mais la rien du tout, ca passe directement à opération terminée. Normalement la macro doit copier chaque éléments de chaque lignes qui comportent un 1 et les coller ailleurs. Mais la rien du tout.
La boucle Do while me semble appropriée pour ce genre de problème non ?

Merci d'avance !