insertionde lignes par rapport à de lignes masquées

je ne sais pas lui faire compter le nb de lignes masquées.

Plage à adapter...
Set fin = [A65536].End(3)
x = Range("A1", fin).Count - Range("A1",
fin).SpecialCells(xlCellTypeVisible).Count

AV

Hum... hum....qques inconvénients possibles...
Mieux vaut :
x = [counta(A:A)-subtotal(3,A:A)]

AV

Si j'ai bien compris le nb de lignes et égal à x, mais comment le lui faire
insérer par exemple par rapport à la ligne 27 ou cellule A27

je ne sais pas lui faire compter le nb de lignes masquées.

Plage à adapter...
Set fin = [A65536].End(3)
x = Range("A1", fin).Count - Range("A1",
fin).SpecialCells(xlCellTypeVisible).Count

AV

Si j'ai bien compris le nb de lignes et égal à x, mais comment le lui faire
insérer par exemple par rapport à la ligne 27 ou cellule A27

Sub zzz()
x = [counta(A:A)-subtotal(3,A:A)]
For i = 1 To x
Rows(27).Insert Shift:=xlDown
Next
End Sub

AV

Je vais essayer d'ajouter cette macro à ma macro globale et la tester.
Encore merci

Si j'ai bien compris le nb de lignes et égal à x, mais comment le lui faire
insérer par exemple par rapport à la ligne 27 ou cellule A27

Sub zzz()
x = [counta(A:A)-subtotal(3,A:A)]
For i = 1 To x
Rows(27).Insert Shift:=xlDown
Next
End Sub

AV

Je me suis mal exprimer je pense, voila ma macro de base
Sub masq()
Selection.Rows.select
Selection.EntireRow.Hidden = True
Range("D19").Select
End Sub
lorsque je sélectionne des cellules en cliquant sur un bouton, mes lignes
se maquent.
J'aimerai si possible qu'il m'enregistre le nombre de lignes masquées et
qu'il m'insère automatiquement le même de nombre de lignes à partir de la
ligne par exemple ligne 43 ou cellule A43
merci d'avance pour l'aide

Je vais essayer d'ajouter cette macro à ma macro globale et la tester.
Encore merci

Si j'ai bien compris le nb de lignes et égal à x, mais comment le lui faire
insérer par exemple par rapport à la ligne 27 ou cellule A27

Sub zzz()
x = [counta(A:A)-subtotal(3,A:A)]
For i = 1 To x
Rows(27).Insert Shift:=xlDown
Next
End Sub

AV