Autres macro ne s'exécute pas pour tout le fichier

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