Lancer une macro à la création d'une feuille

Bonjour,

Je cherche le moyen de lancer une macro à la création d'une nouvelle feuille excel. Et le but est de lancer cette macro sur la feuille elle même. Il faut également que cette macro ne se lance qu'une seule fois.

Voilà mon code original qui ne convient pas puisqu'elle se lance à chaque fois que je change de sélection (au niveau des feuilles)

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

If ActiveSheet.Name = "SOURCE" Then Exit Sub

If ActiveSheet.Range("A1").Font.Color <> RGB(0, 0, 0) Then Exit Sub

Sheets("SOURCE").Columns("A:N").Copy
    ActiveSheet.Columns("A:N").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    ActiveSheet.Range("A1").Select
    ActiveSheet.Columns("A:N").Font.Color = RGB(0, 0, 0)
    Application.CutCopyMode = False

End Sub

Merci de votre aide.

Cordialement.