Sub Masquer()
'
'Masquage des lignes vide sur toutes les feuilles
'
Dim F As Integer
Dim L, NbL, NbL2 As Long
Dim Ln, Lgn, C, T As String
For F = 3 To 21
Sheets(F).Select
NbL = Sheets(1).Range("A99999").End(xlUp).Row
For L = 4 To NbL
If Sheets(1).Range("C" & L).Value <> "" Then
T = Sheets(1).Range("A" & L).Value
NbL2 = Sheets(F).Range("A99999").End(xlUp).Row
For Ln = 12 To NbL2
C = Sheets(F).Range("A" & Ln).Value
If T = C Then
Lgn = Ln & ":" & Ln
Sheets(F).Rows(Lgn).EntireRow.Hidden = False
End If
Next Ln
Else
T = Sheets(1).Range("A" & L).Value
NbL2 = Sheets(F).Range("A99999").End(xlUp).Row
For Ln = 12 To NbL2
C = Sheets(F).Range("A" & Ln).Value
If T = C Then
Lgn = Ln & ":" & Ln
Sheets(F).Rows(Lgn).EntireRow.Hidden = True
End If
Next Ln
End If
Next L
Next F
End Sub