ActiveSheet.Paste provoque une erreur

Bonjour,

J'ai un soucis avec mon code ci-dessous. Il fonctionne parfaitement sur Excel 365 et dés que je le met sur un PC qui fonctionne sous Excel 2019

celui donne une erreur. Comment je peu modifier mon code pour ne pas utiliser " ActiveSheet.Paste" ou tout autre solution pour faire cette copie.

D'avance merci

Sub CopieDonneesFiltrees_EL()

  Sheets("Preventif_EL").Activate
  ActiveCell.CurrentRegion.SpecialCells(xlVisible).Copy
  Sheets("ImpressionEL").Activate
  Range("A2").Select
  ActiveSheet.Paste
End Sub

Bonjour,

Sheets("Preventif_EL").CurrentRegion.SpecialCells(xlVisible).Copy Sheets("ImpressionEL").Range("A2")

Bonjour,

merci pour votre code , mais il me donne cette erreur

Bonjour à tous,

Un fichier serait le bienvenu pour voir comment sont structurées tes données....

Si tes données comment en A1:

Sheets("Preventif_EL").range("A1").CurrentRegion.SpecialCells(xlVisible).Copy Sheets("ImpressionEL").Range("A2")

Autre possibilité en définissant la plage:

Sub essai()
 Dim plage As Range
  Set plage = Sheets("Preventif_EL").Range("A1:G20") 'à adapter
   plage.SpecialCells(xlVisible).Copy Sheets("ImpressionEL").Range("A2")
End Sub

Cordialement,

Merci à tous

J'ai testé 1 ère solution de xorsankukai et cela fonctionne sur Excel 2019 et Excel 365.

Encore merci pour votre aide