[OOo] Modifier feuilles lors même opération

Bonjour à tous
Sous excel j'avais une macro en VBA afin de :
- figer l'écran,
- sélectionner plusieurs feuilles,
- faire diverses opérations sur l'ensemble de ces feuilles en même temp comme :
- copier/coller de cellules,
- effacer des données dans des cellules individuelles
- effacer plusieurs zones de données
Je joint cette macro que j'ai simplifiée à 2 feuilles, deux cellules et 2x2 zones de cellules pour l'exemple.

Sub effacement()
Application.ScreenUpdating = False
Sheets("Feuille1", "Feuille2")).Select
Sheets("Feuille1").Activate
Range("G7").Copy
Range("G5").PasteSpecial Paste:=xlValues
Range("G25").Copy
Range("G23").PasteSpecial Paste:=xlValues
Range("F9,F27").Select
Selection.ClearContents
Range("C12:C18,E12:E18").Select
Selection.ClearContents
Range("C30:C36,E30:E36").Select
Selection.ClearContents
Sheets("Feuille1").Activate
Range("D2").Select
End Sub

Est il possible de faire la même chose dans Calc. Lorsque j'utilise l'enregistreur de macros pour obtenir une macro capable de réaliser cela, ça ne marche pas, il ne prend pas en compte la sélection de plusieurs feuilles ou la sélection de plusieurs zones que j'efface. La macro ne présente qu'une feuille et qu'une des zones qui ont été sélectionnées.
Merci pour votre aide
Didier61