copier / coler sur feuilles protégées

Salut le forum,

Copier / coller... je m'englue oui!! je voudrais faire un chose qui me paraît simple.
Toutes mes feuilles sont protégées. Je voudrais copier une range et la coller dans une autre range sur TOUTES les feuilles. Je n'y parvient qu'en faisant 3 boucles FOR EACH... NEXT et ça n'énerve.
une âme sensible pourrait-elle corriger mes erreurs :

Public Sub test()
Dim ws As Worksheet
For Each ws In Sheets
ws.Unprotect
Next ws
Sheets(1).Range("A1").Copy
For Each ws In Sheets
ws.Select
ActiveSheet.Paste Destination:=ActiveSheet.Range("B1")
Next ws
For Each ws In Sheets
ws.Protect
Next ws
End Sub

si j'intègre protect ou unprotect dans la boucle qui colle, ça plante.

Que le Dieu Vébéha me protège... Mais qu'il me déprotège aussi !!

Merci de votre aide.

À plus,

Robert