Copier le contenu de cellules dans un onglet

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("B1")) Is Nothing Then
boucle ' boucle sur toutes les feuilles sauf Page 1
End If
End Sub
Sub boucle()
'Déclare la variable objet Worksheet
Dim Ws As Worksheet
'Boucle sur toutes les feuille de calcul du classeur. Les onglets graphiques ne sont pas pris
'en compte.
'ThisWorkbook correspond à l'objet classeur contenant la macro
For Each Ws In ThisWorkbook.Worksheets
  If Ws.Name <> "Page 1" Then 'adapter le nom de la feuille
  Ws.Name = Worksheets("Page 1").Range("B1").Value & " " & Worksheets(Ws.Name).Range("B3").Value
  End If
  Next Ws
End Sub