Erreur VBA

Bonjour,

Je débute sur VBA, et la macro que j'ai réalisée ne veux pas se réaliser dans excel
En effet, à chaque fois que j'ouvre mon VBA une fenetre d'erreur apparait "erreur d'execution1004 erreur definie par l'application ou par l'objet"

quelqu'un pourrait-il m'expliquer pourquoi mon programme n'arrive-t-il pas à se lancer, et comment faire pour corriger cette erreur?

Merci d'avance
les macros concernées par cette erreur sont les suivantes:
Pour l'objet:
Private Sub CommandButton1_Click()

Application.ScreenUpdating = False

Worksheets("Synthèse").Unprotect
Worksheets("Accueil").Unprotect

If ComboBox1.Value <> [A70] And ComboBox1.Value <> [A71] And ComboBox1.Value <> [A72] And ComboBox1.Value <> [A73] Then
MsgBox "Veuillez sélectionner une typologie dans la liste"
Else
[G5] = ComboBox1.Value
Worksheets("FBP").PageSetup.LeftHeader = ComboBox1.Value

End If

If [G5] = [A70] Then
'G8 hors UE

Worksheets("Synthèse").Range("A6") = Worksheets("4.CSU").Range("A4")
Worksheets("Synthèse").Range("D6").FormulaLocal = "=4.CSU!E4"
Worksheets("Synthèse").Range("D6").NumberFormat = "#,##0"

Worksheets("Synthèse").Range("A7") = Worksheets("5.CCF").Range("A6")
Worksheets("Synthèse").Range("D7").FormulaLocal = "=5.CCF!E6"
Worksheets("Synthèse").Range("D7").NumberFormat = "0%"

Worksheets("Synthèse").Range("A8") = Worksheets("2.Fin ext").Range("A74")
Worksheets("Synthèse").Range("D8").FormulaLocal = "=2.Fin ext!H74"
Worksheets("Synthèse").Range("D8").NumberFormat = "#,##0 $"

Worksheets("Synthèse").Range("A9") = Worksheets("4.CSU").Range("A9")
Worksheets("Synthèse").Range("D9").FormulaLocal = "=4.CSU!E9"
Worksheets("Synthèse").Range("D9").NumberFormat = "#,##0"

End If

If [G5] = [A71] Then
'UE à 15

Worksheets("Synthèse").Range("A6") = Worksheets("4.CSU").Range("A4")
Worksheets("Synthèse").Range("D6").FormulaLocal = "=4.CSU!E4"
Worksheets("Synthèse").Range("D6").NumberFormat = "#,##0"

Worksheets("Synthèse").Range("A7") = Worksheets("5.CCF").Range("A6")
Worksheets("Synthèse").Range("D7").FormulaLocal = "=5.CCF!E6"
Worksheets("Synthèse").Range("D7").NumberFormat = "0%"

Worksheets("Synthèse").Range("A8") = Worksheets("2.Fin ext").Range("A74")
Worksheets("Synthèse").Range("D8").FormulaLocal = "=2.Fin ext!H74" (le debogage mets cette ligne en evidence)
Worksheets("Synthèse").Range("D8").NumberFormat = "#,##0 $"

Worksheets("Synthèse").Range("A9") = Worksheets("5.CCF").Range("H29")
Worksheets("Synthèse").Range("D9").FormulaLocal = "=5.CCF!F96"
Worksheets("Synthèse").Range("D9").NumberFormat = "#,##0"

End If