Macro formule d'une autre feuille

Sub créerFeuilles() 
    Dim lig As Long, shBD As Worksheet, sh As Worksheet 
    Set shBD = Worksheets("BD") 
    For lig = 4 To [A65536].End(xlUp).Row 
        If Not existSheet(shBD.Cells(lig, 1)) Then 
            ' créer la feuille si elle n'existe pas 
            Sheets("Modèle").Copy After:=Sheets(Sheets.Count) 
            Set sh = ActiveSheet 
            ' renommer feuille 
            sh.Name = shBD.Cells(lig, 1).Value 
            ' inscription en dur 
            sh.[A6].Value = shBD.Cells(lig, 1).Value 
            ' incription d'une formule 
            sh.[F12].FormulaLocal = "=BD!H" & lig 
        End If 
    Next lig 
    shBD.Activate 
End Sub 

Function existSheet(nomFeuille As String) As Boolean 
    On Error Resume Next 
    existSheet = Sheets(nomFeuille).Index 
End Function 

Dim cpt As Long
Sub test()
    cpt = cpt + 1
    MsgBox (cpt)
End Sub