Boucle "tant que" qui ne se termine pas

Bonjour à tous,

Je suis débutant sur VBA et je ne trouve pas mon erreur sur mon code ci -dessous...

L = 1

While Sheets("Statut 0").Cells(L, 1).Value <> Vide

L = L + 1

If Sheets("Statut 0").Cells(L, 4) Like "FLASHSCAN*" Or Sheets("Statut 0").Cells(L, 4) Like "*PIXIUM*" Or Sheets("Statut 0").Cells(L, 4) Like "PROCESSING UNIT*" Or Sheets("Statut 0").Cells(L, 4) Like "CONVERTER*" Or Sheets("Statut 0").Cells(L, 4) Like "MOCK UP*" Or Sheets("Statut 0").Cells(L, 4) Like "FS*" Then

Else

Sheets("Statut 0").Cells(L, 4).EntireRow.Delete

L = L - 1

End If

Wend

Si quelqu'un peut m'aider...

Merci d'avance!

Bonjour

A quoi correspond la variable vide ?

Essayes ceci

Sub test()
  L = 1
  While Sheets("Statut 0").Cells(L, 1).Value <> ""      ' Vide
    L = L + 1
    If Sheets("Statut 0").Cells(L, 4) Like "FLASHSCAN*" Or _
       Sheets("Statut 0").Cells(L, 4) Like "*PIXIUM*" Or _
       Sheets("Statut 0").Cells(L, 4) Like "PROCESSING UNIT*" Or _
       Sheets("Statut 0").Cells(L, 4) Like "CONVERTER*" Or _
       Sheets("Statut 0").Cells(L, 4) Like "MOCK UP*" Or _
       Sheets("Statut 0").Cells(L, 4) Like "FS*" Then
    Else
      Sheets("Statut 0").Cells(L, 4).EntireRow.Delete
      L = L - 1
    End If
  Wend
End Sub

Sinon tu peux tester cela

Sub test2()
Dim L As Long

  With Sheets("Statut 0")
    For L = .Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
      If .Cells(L, 4) Like "FLASHSCAN*" Or _
         .Cells(L, 4) Like "*PIXIUM*" Or _
         .Cells(L, 4) Like "PROCESSING UNIT*" Or _
         .Cells(L, 4) Like "CONVERTER*" Or _
         .Cells(L, 4) Like "MOCK UP*" Or _
         .Cells(L, 4) Like "FS*" Then
      Else
        .Rows(L).Delete
      End If
    Next L
  End With
End Sub