Comment fusionner 4 feuilles excel sur 6 en une seule

Bonjour tout le monde
J’ai un classeur excel 2007 constitué de 6 feuilles. Je voudrais si possible fusionner 4 feuilles seulement sur 6. J’ai utilisé du code VBA et ça a marché mais le code a fusionné 6 feuilles sur 6 ( au lieu de 4 ).
Merci

Le code que j’ai utilisé est le suivant:

Sub Combine()
Dim J As Integer
On Error Resume Next
Sheets(1).Select
Worksheets.Add
Sheets(1).Name = "Hamadou"
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

Que dois-je changer ?

Bonsoir
For J = 2 To Sheets.Count
Sheets(J).Activate

juste aprés la ligne For J …
mettre une condition pour ne pas prendre en compte les feuilles comportant les noms…

car dans ton module Sheets.count, il prend les 6 feuilles

1 J'aime

Re,

Ex:

If sheets(J)<>“Nom1” and sheets(j) <>“nom2” then
procèdure

end if

Ce sujet a été automatiquement fermé après 30 jours. Aucune réponse n’est permise dorénavant.