Copier plage pour dupliquer dans plusieurs onglets

Bonjour,

Je chercher à créer une macro qui va aller chercher dans une feuille une plage déterminée pour aller la copier dans tous les onglets dont ne nom comportement le mot "New".

J'ai créé un code mais rien ne se passe et je ne vois pas ce qui ne va pas.

Si vous pouvez m'aider.

Merci

Mon code :

Sub Macro2()

Sheets("Onglet de base").Range("A3:NZ800").Select

Application.CutCopyMode = False

Selection.Copy

Dim ws As Worksheet

For Each ws In Worksheets

If UCase(ws.Name) Like "*New*" Then

ws.Activate

ActiveSheet.Range("A3").Select

Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _

SkipBlanks:=False, Transpose:=False

End If

Next ws

Application.CutCopyMode = False

End Sub

Sub Macro2()
Sheets("Onglet de base").Range("A3:NZ800").copy
For Each ws In Worksheets
If UCase(ws.Name) Like "*NEW*" Then
ws.Activate
ws.Range("A3").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End If
Next ws
End Sub

Merci beaucoup !