Microsoft 365 Masquer plusieurs lignes sur plusieurs onglets

Bonjour

Lorsque je sélectionne une CheckBox cela a pour conséquence d'afficher des lignes ; si je la déselectionne, cela masque les mêmes lignes.
J'arrive à masquer ces lignes sur 1 onglet (CALCULS (PU)
Maintenant je souhaiterai le faire sur plusieurs onglets mais le code suivant ne fonctionne pas....que dois je faire comme correction ?
Merci

Sub Test_2(ByVal iIdx%)
'
Dim iRow%
'
On Error Resume Next
With Worksheets("CALCULS (PU)")
iRow = .Range("Ax:Ax").Find(What:=Worksheets("Parameters").OLEObjects("CheckBox" & iIdx).Object.Caption).Row
.Rows(iRow).ShowDetail = Worksheets("Parameters").OLEObjects("CheckBox" & iIdx).Object.Value
End With

With Worksheets("FINANCE")
iRow = .Range("R:R").Find(What:=Worksheets("Parameters").OLEObjects("CheckBox" & iIdx).Object.Caption).Row
.Rows(iRow).ShowDetail = Worksheets("Parameters").OLEObjects("CheckBox" & iIdx).Object.Value
End With

On Error GoTo 0

End Sub


Merci pour votre aide