Masquer lignes vides via cellules sélection

Bonjour,
dans un tableau j'ai 6 cellules de sélection via listes déroulantes ; cellules sur la même lignes de C11 à H11 qui entraînent l'apparition progressive d'info dans les cellules de la ligne 16 à 68.
Mon problème c'est que, selon le cas, seulement deux ou trois cellules de sélection (donc de C11 àH11) sont utilisées donc des lignes vides se créer forcément.
J'aimerais donc savoir si quelqu'un connait suffisamment les macros pour me proposer une solution qui ferait en sorte que les cellules vides seraient masquer pour chacune des cellules de sélection (de C11 à H11)
voici un lien vers mon exemple :
http://www.cijoint.fr/cjlink.php?file=cj200911/cijX030iAJ.xls

pour un autre fichier, gbinforme m'avait proposé cette solution qui marchait très bien (elle cachait les lignes vides associés aux cellules de sel A1 et A14), j'ai essayé de l'adapter avec mon cas précis mais je n'y arrive pas. je vous la donne si ça peut servir comme point de départ.
merci d'avance.

Private Sub Worksheet_Change(ByVal sel As Range)
If Not Intersect(Union([A1], [A14]), sel) Is Nothing Then
Dim col As Integer
Dim lig As Long
For lig = Cells.SpecialCells(xlCellTypeLastCell).Row To 2 Step -1
For col = Rows(lig).SpecialCells(xlCellTypeLastCell).Column To 1 Step -1
If IsError(Cells(lig, col).Value) Then Exit For
If Cells(lig, col).Value > 0 Then Exit For
Next col
If col = 1 Then
Rows(lig).Hidden = True
Else
Rows(lig).Hidden = False
End If
Next lig
End If
End Sub