Apllquer un macro a certain onglet

Bonjour a tous

J'ai beaucoup utilisé votre forum pour réaliser mon premier code VBA pour Excel

Mais il me reste une question

Je souhaite que cette macro s'applique que sur certain onglet

"titre", "bzh", "pdlpc" et le résultat de la macro arrive dans "fusionbase"

Merci par avance de votre aide

Sub copier()

Dim lastlig As Long
Dim s As Byte

Sheets("FUSIONBASE").[(A1:A4000):(DM1:DM4000)].ClearContents

For s = 1 To 3

    With Sheets(s)

        lastlig = .Cells(Rows.Count, 1).End(xlUp).Row
        .Range("A2:DM" & lastlig).Copy Sheets("FUSIONBASE").Cells(Rows.Count, 1).End(xlUp)(2)

    End With
Next s

End Sub

Bonjour,

A première vue ...ton code donnerait l'air de fonctionner ... à condition que les trois premiers onglets de ton fichier soient bien ceus que tu as indiqués ...

( juste Dim s As Integer )

S'il s'agit de ta première macro ... toutes mes sincères félicitations ...