Sub Masquer_Lignes_Conditionnel()
Dim Plage As Range, PlageVide As Range
Dim L As Byte
[color=#FF0000] ActiveSheet.Unprotect Password:='123 [/color]'
123 étant le Password
'Trier les tableaux -----------------------------------------------------------
For L = 1 To 3
........................................
Next L
[color=#FF0000]ActiveSheet.Protect Password:='123'[/color]
End Sub