Simplification VBA

Y a t'il moyen de combiner cette macro ?
je suis sur qu'il y a une solution
L'idée est de masquer des lignes en fonction de plusieurs critères (variables)

merci bcp d 'avance

Rows("23:500").Select
Selection.EntireRow.Hidden = True
Range("A23:A500").Select
For Each o In Selection
If o.Value = "1" Then
o.EntireRow.Hidden = False
End If

Next
Range("E23:E500").Select
For Each o In Selection
If o.Value = Range("K518") Then
o.EntireRow.Hidden = True
End If
Next
Range("E23:E500").Select
For Each o In Selection
If o.Value = Range("K520") Then
o.EntireRow.Hidden = True
End If
Next
Range("E23:E500").Select
For Each o In Selection
If o.Value = Range("K521") Then
o.EntireRow.Hidden = True
End If
Next
Range("E23:E500").Select
For Each o In Selection
If o.Value = Range("K522") Then
o.EntireRow.Hidden = True
End If
Next
Range("E23:E500").Select
For Each o In Selection
If o.Value = Range("K523") Then
o.EntireRow.Hidden = True
End If
Next

Range("E23:E500").Select
For Each o In Selection
If o.Value = Range("K524") Then
o.EntireRow.Hidden = True
End If
Next

Range("E23:E500").Select
For Each o In Selection
If o.Value = Range("K525") Then
o.EntireRow.Hidden = True
End If
Next

Range("E23:E500").Select
For Each o In Selection
If o.Value = Range("K519") Then
o.EntireRow.Hidden = True
End If
Next
For Each o In Selection
If o.Value = Range("K519") Then
o.EntireRow.Hidden = True
End If
Next
End Sub