Bonjour à tous,

Je suis nouveau ici et après avoir parcouru tous les forums je n'arrive pas à trouver de solution à mon problème qui est le suivant :

J'aimerais supprimer les lignes vides d'un range donné.

En fait c'est pour un tableau type facture. Certaines lignes restent vides après modifications de la facture. Si ces lignes sont vides alors elles peuvent etre supprimées. Ces lignes sont en général dans un range allant de de C16 à I34.

J'ai essayé avec le code ci dessous mais la première ligne en partant du haut se supprime quand je lance la macro :

Code VBA : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Sub sup_zero()
Dim rcel As Range
Range("C16:I34").Select
Selection.CurrentRegion.Select
For Each rcel In Selection
If rcel.Value = "" Then
    rcel.EntireRow.Delete
End If
Next rcel
End Sub

Pourriez vous me donner un coup de main svp?

Cordialement,
Titi