Exécuter une macro dans un onglet, même s'il n'est pas sélectionné

Sub macro_avec_une_seule_activation_AT_THE_END()
Dim onglet_1 As Worksheet, onglet_2 As Worksheet, m$, no$, s_om
Set onglet_1 = Sheets("1")
Set onglet_2 = Sheets("2")

With onglet_2
        With .[A1].Resize(10, 5)
            .Formula = "=ROW()^COLUMN()"
            .Value = .Value
            .Copy onglet_1.[A1]
        End With
End With

With onglet_1
no = .Name
With .[A1].CurrentRegion
m = "Nom de la feuille: " _
    & no & vbLf _
    & "Adresse de la sélection: " & .Address(0, 0) _
    & vbLf & vbLf & vbTab & "TOTAL= " & Format(Application.Sum(.Value), "#,##0.00")
    .Borders.LineStyle = xlContinuous
    .Interior.ColorIndex = 26
        With .Font
            .ColorIndex = 53
            .Size = 20
            .Bold = True
        End With
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
    .Columns.AutoFit
End With
End With
onglet_1.Activate
MsgBox m, vbInformation
End Sub

Sub Exemple_Simplifie()
 
    Sheets("Nom_De_Onglet_[B][COLOR=red]2[/COLOR][/B]").[COLOR=red]Select[/COLOR]
 
    [COLOR=red]With[/COLOR] Sheets("Nom_De_Onglet_[COLOR=red][B]1[/B][/COLOR]")
        [A1:B2].Copy [B][SIZE=4][COLOR=red].[/COLOR][/SIZE][/B][A1]
    End With
 
End Sub

Sub Exemple_Simplifie_et_sans_endives()
Sheets("Nom_De_Onglet_2").[A1:B2].Copy Sheets("Nom_De_Onglet_1").[A1]
End Sub