Supprimer ligne selon conditions

Bonjour,

J'ai un document excel conséquent et certaines lignes sont vides, a l'exception de la première colonne.

La première colonne de chaque ligne représente une date.

Pour certaines dates, je n'ai aucune donnée

J'aimerais donc supprimer les lignes pour lesquelles je n'ai pas de données.

Je joins un fichier excel exemple avec une macro que j'ai écrite qui ne fonctionne pas. Je ne comprends pas pourquoi.

Merci pour votre aide

Tuline

Bonsoir,

une proposition de correction

Sub delete_empty_rows()

Dim nbl, col As Long

nbl = Worksheets(1).UsedRange.Rows.Count
col = Worksheets(1).UsedRange.Columns.Count

For i = nbl To 1 Step -1
For j = 2 To col
    If Worksheets(1).Cells(i, j) <> "" Then j = col + 100: Exit For
Next j
If j < col + 100 Then Worksheets(1).Cells(i, 2).EntireRow.Delete

Next i

Parfait ! Un grand merci !