Fusionner des onglets

Bonjour,

Je fais un appel aux bonnes volontés

J'ai un fichier avec une centaines d'onglets que j'aimerais fusionner dans un seul onglet

Ya t'il une fonction qui le permet ou une macro.

D'avance merci

edit Dan : supprimé majuscules dans titre du sujet

Bonjour, Bienvenue

un exemple avec un Code de Mytå

https://www.excel-pratique.com/~files/doc/ArchiverVBA.xls

Cordialement

Merci pour ta reponse

Salut le forum

Amadéus, une petite précision : Je ne suis pas l'auteur de se code.

Le code est de Ti pas de moi

Sub Archivage()  '  Ti
Dim Source As Range, Dest As Range, Lgn As Range

  '  on travaille à partir de la feuille active
  Set Source = ActiveSheet.Rows("25:31")
  '  pour plus de sécurité, il vaudrait mieux préciser le nom
  '  de la feuille source, donc écrire
  '  Set Source = ThisWorkbook.Worksheets("NomDeLaFeuille").Rows("25:29")

  With ThisWorkbook.Worksheets("Recap")
    Set Dest = .Range("A65536").End(xlUp)
    If Dest.Row > 1 Or Dest <> "" Then Set Dest = Dest.Offset(1, 0)
  End With

  For Each Lgn In Source.Rows
    If Lgn.Cells(1, 1) <> "" Then
      Lgn.Copy
      Dest.PasteSpecial xlPasteValuesAndNumberFormats
      Set Dest = Dest.Offset(1, 0)
    End If
  Next Lgn
  Application.CutCopyMode = False
End Sub

Bonjour

Salut Jean Rock

J'en demande donc bien pardon à Ti, mais comme le Code n'est pas signé et qu'il figurait dans une de tes réponses, je te l'ai attribué...Du reste, nul doute qu'il aurait pu être de toi, vu ton niveau VBA.

Je m'interroge toujours de savoir si je dois persister à citer l'auteur d'un code qui n'a pas son nom dans le commentaire de ce code?

Bonne journée