Dans l’exemple suivant, toutes les lignes vides sont masquées. Une ligne est considérée comme vide si et seulement s’il n’y a pas d’entrée dans la colonne A de la ligne concernée. La macro de cette édition est:

Sub MasquerLesLignesVides()

Dim i As Long

Sheets("Feuil2").Activate

For i = 1 To ActiveSheet.UsedRange.Rows.Count

Range("A" & i).Select

If ActiveCell.Value = "" Then

    ActiveCell.EntireRow.Hidden = True

Else

End If

Next i

End Sub

Utilisez l’instruction ActiveSheet.UsedRange.Rows.Count pour déterminer le nombre de lignes remplies de la tâche. Ce nombre déterminé constitue la condition de fin de la boucle suivante. Maintenant, parcourez toutes les lignes utilisées de Spaite A et vérifiez si elles sont vides. Si tel est le cas, vous pouvez utiliser l’instruction ActiveCell .EntireRow.Hidden = T rue pour quitter ces lignes.