Lancer une macro par rapport à une autre

sheets("SOMMAIRE").activate

Option Explicit

Const F1 = "BAIE AT10"
Const lidebF1 = 2
Const coF1 = "F"

Const F2 = "DATA SWITCH"
Const lidebF2 = 2
Const coF2 = "B"

Const FR = "SOMMAIRE"
Const lidebFR = 2
Const coFR = "C"

Const nonOK = "NO BRASS NON AFFECT DON'TCONNECT "

Public Sub macro2()
Dim liF As Long, lifinF As Long
Dim obj As Object
Dim dico As Object, cle As String, cles, valeurs, nbcles As Long, nucle As Long
Set dico = CreateObject("scripting.dictionary")
With Sheets(F1)
  lifinF = .Range(coF1 & Rows.Count).End(xlUp).Row
  For liF = lidebF1 To lifinF
    cle = .Range(coF1 & liF).Value
    If InStr(1, nonOK, cle) = 0 Then
      If Not dico.exists(cle) Then dico.Add cle, 1
    End If
  Next liF
End With
With Sheets(F2)
  lifinF = .Range(coF2 & Rows.Count).End(xlUp).Row
  For liF = lidebF2 To lifinF
    cle = .Range(coF2 & liF).Value
    If InStr(1, cle, nonOK) = 0 Then
      If dico.exists(cle) Then
        dico.Remove (cle)
      Else
        dico.Add cle, 1
      End If
    End If
  Next liF
End With
cles = dico.keys
valeurs = dico.items
nbcles = dico.Count
With Sheets(FR)
  .Range(coFR & lidebFR).Resize(nbcles - 1, 1) = Application.Transpose(cles)
End With
End Sub

Sub Macro1()
Call Macro2
End Sub
Sub Macro2()
End Sub