XL 2016 intégrer une macro sur les nouvelles feuilles crées

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    'ajouter feuille sur double clic colonne c
    Dim Nom_Feuille As String
    Dim Feuille As Worksheet

    If Not Intersect(Target, Range("C:C")) Is Nothing And Target.Value <> "" Then
     
        ' désactive le double clic
        Cancel = True
        Nom_Feuille = Target.Value
     
        ' cherche la feuille, si trouvé l'active et sort
        For Each Feuille In ThisWorkbook.Worksheets
            If Feuille.Name = Nom_Feuille Then
                Sheets(Nom_Feuille).Activate
       
                'Exit Sub
            End If
        Next Feuille

        ' puisque pas trouvé la créer et l'activer
        With ThisWorkbook
            Set Feuille = .Worksheets.Add(After:=.Worksheets(.Worksheets.Count))
            Feuille.Name = Nom_Feuille
            Feuille.Activate
              Feuille.Range("a3").Value = "DATE"
              Feuille.Range("B3").Value = "KILOMETRAGE"
              Feuille.Range("C3").Value = "ENTRETIEN REALISE"
              Feuille.Range("D3").Value = "PROCHAINE ECHEANCE"
          Feuille.Columns("B:B").ColumnWidth = 26.86
    Feuille.Columns("C:C").ColumnWidth = 37.71
    Feuille.Columns("C:C").ColumnWidth = 75.43
  Feuille.Columns("D:D").ColumnWidth = 40.14
  Feuille.Columns("C:C").ColumnWidth = 115.14
  Feuille.Columns("A:A").ColumnWidth = 17.43
  Feuille.Range("a3:d3").Select
 With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = -0.249977111117893
        .PatternTintAndShade = 0
      Feuille.Range("A1").Select
       Feuille.Range("A1").Interior.ColorIndex = 4
     Feuille.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "ACCUEIL!A1", TextToDisplay:="Retour ACCUEIL"
            Feuille.Rows("4:4").Select
    ActiveWindow.FreezePanes = True

     
    End With
 
        End With
     
    End If
 
End Sub