Ignorer des onglets pour application d'une macro

Bonjour à tous,

J'ai une macro (ci-dessous) qui permet de compiler tous les onglets en une seule feuille "combined".

Je cherche une modification pour que cette macro ne prenne pas en compte deux onglets "RECHERCHE" et "Groupe".

Auriez vous une idée, svp ?

Merci bien, bonne journée

Sub Combine()

Dim J As Integer
On Error Resume Next
Sheets(1).Select
Worksheets.Add
Sheets(1).Name = "Combined"
Sheets(2).Activate
Range("A1").EntireRow.Select
Selection.Copy Destination:=Sheets(1).Range("A1")
For J = 2 To Sheets.Count
Sheets(J).Activate
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select
Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2)
Next

End Sub

Bonjour

Teste comme ceci

Sub Combine()

  Dim J As Integer
  On Error Resume Next
  Sheets(1).Select
  Worksheets.Add
  Sheets(1).Name = "Combined"
  Sheets(2).Activate
  Range("A1").EntireRow.Select
  Selection.Copy Destination:=Sheets(1).Range("A1")
    For J = 2 To Sheets.Count
      If Sheets(J).Name <> "RECHERCHE" And Sheets(J).Name <> "Groupe" Then
        Sheets(J).Activate
        Range("A1").Select
        Selection.CurrentRegion.Select
        Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select
        Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2)
      End If
    Next

End Sub

Bonjour,

Cela semble fonctionner, mais la première ligne de l'onglet "recherche" se retrouve en première ligne de l'onglet "Combined".

C'est déjà très bien, merci beaucoup.

Bonne journée à vous.