[COLOR=rgb(97, 189, 109)]' Masquer les lignes ou les cellules de la colonne F si elles sont remplies:[/COLOR]
Sub masquer_ligne_vide_TEST2()
ActiveSheet.Unprotect Password:="."
Dim Cel As Range
For Each Cel In ActiveSheet.Range("F3:F250").Cells
If Cel <> vbNullString And Cel.Value <> "" Then
Cel.EntireRow.Hidden = True
End If
Next
ActiveSheet.Protect Password:="."
End Sub
[COLOR=rgb(97, 189, 109)]' Afficher les lignes masquées:[/COLOR]
[COLOR=rgb(184, 49, 47)]Sub AfficherColonneLigne()
ActiveSheet.Unprotect Password:="."
Columns.EntireColumn.Hidden = False
Rows.EntireRow.Hidden = False
ActiveSheet.Protect Password:="."
End Sub[/COLOR]