Copier coller lignes non masqué vers une autre feuille

Bonjour , étant débutante en vba je souhaiterais copier les lignes non masqué sur un autre onglet voici un petit bout de mon code While (i <> "540") If (Worksheets("Feuil1").Rows(i).Hidden = False) Then Worksheets("Feuil1").Rows(i).Hidden = True End If If CheckBox20.Value = True Then If (Worksheets("Feuil1").Range("J" & i).Value Like "*1*") Then If CheckBox1.Value = True Then If (Worksheets("Feuil1").Range("I" & i).Value Like "*b*") Then Worksheets("Feuil1").Rows(i).Hidden = False Worksheets("Feuil1").Select End If End If If CheckBox2.Value = True Then If (Worksheets("IT FOR").Range("I" & i).Value Like "*c*") Then Worksheets("Feuil1").Rows(i).Hidden = False Worksheets("Feuil1").Select End If End If vu que j'ai da'autre checkbox qui doi parcourir d'autres tableaux je prefererai que tous les lignes non masqué de différents onglets apparaissent sur une meme feuille Je vous remercie d'avance en esperant trouver une solution