Supprimer les lignes vide d'un tableau avec la première colonne non vide

Bonjour à tous,

J'ai actuellement un tableau comprenant des lignes vides. Le seul problème est que ces lignes ne sont pas entièrement vides car la colonne A est bien remplie, avec les cellules suivantes (B, C, D …) qui sont vides.

Ainsi j'aimerais créer une condition :

"Si les colonnes B à AA sont vides alors suppression de la ligne

ligne suivante

Sinon

ligne suivante

jusqu'à la ligne 100 admettons".

Je souhaiterais écrire cela en VBA.

Veuillez excuser mon manque d'experience.

Merci par avance,

Bien cordialement,

Valentin.

Bonjour

Essaie ce code :

Sub Supprimer()
    Dim i&
    For i = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
        If WorksheetFunction.CountA(Range("B" & i & ":AA" & i)) = 0 Then
            Rows(i & ":" & i).Delete shift:=xlUp
        End If
    Next i
End Sub

Bye !