Problème avec un script de fusion des feuilles

Bonjour

Très content trouver ce forum. J'espère qu'il m'aidera à trouver la solution à mes problèmes en vba surtout. J'aime la programmation . Excusez moi je suis un peu trop bavard. Mon problème est celui ci: le script ci dessous fonctionne cad il me permet de fusionner les valeurs des feuilles actives de mon classeur dans la feuille3 mais les valeurs copiées ou fusionnées sont en doublant dans la feuille3.

Pour être plus explicite:

Feuille1 à une ligne

Feuille2 à une ligne

Dans la feuille3 (feuille de fusion) je me retrouve avec 4 ligne).

Merci de m'aider

Sub test2()

Dim ws As Worksheet

For Each ws In Worksheets

If ws.Name <> "recap" Then

Application.ScreenUpdating = False

ws.Activate

Range("A5:" & [a1].SpecialCells(xlCellTypeLastCell).Address).Copy

Sheets("Feuil3").Activate

Range("A65536").End(xlUp).Offset(1, 0).Select

ActiveSheet.Paste

Application.CutCopyMode = False

End If

Next ws

End Sub

Bonjour

Je pense que le problème vient du fait que tu copies les infos de la Feuil3 dans la ....Feuil3

Sans connaitre l'architecture de ton classeur

essayes

Sub test2()
Dim ws As Worksheet

  For Each ws In Worksheets
    If ws.Name <> "recap" And ws.Name <> "Feuil3" Then
      Application.ScreenUpdating = False
      ws.Activate
      Range("A5:" & [a1].SpecialCells(xlCellTypeLastCell).Address).Copy
      Sheets("Feuil3").Activate
      Range("A65536").End(xlUp).Offset(1, 0).Select
      ActiveSheet.Paste
      Application.CutCopyMode = False
    End If
  Next ws
End Sub