Correction d'un code VBA

Bonjour,

Je suis débutante en VBA et je viens d'écrire un code, mais je reçois un message d'erreur disant qu'il n'y a pas de bloc If quand je l'exécute. Est-ce que quelqu'un pourrait me dire mon erreur s'il vous plaît ?

Sub Macro2()

'

' Macro2 Macro

'

'

Range("C3").Select

For i = 0 To 5

Dim compteur As Integer

compteur = 0

Dim fin_mois As Date

fin_mois = ActiveCell.FormulaR1C1 = "=EOMONTH(R[0]C[-2],0)"

Dim date_début As Date

date_début = Range("A3").Value

If ((fin_mois - (date_début + 4)) > 0) Then compteur = compteur + Range("C3")

ElseIf ((ActiveCell.FormulaR1C1 = "=ABS(fin_mois - (date_début + 4))") <= 3) Then compteur = compteur + Range("C3")

Else: Range("C58").Value = compteur

Next

End Sub

Merci d'avance !

Bonjour

Une autre façon de l'écrire

Sub Macro2()
'
' Macro2 Macro
'

Dim compteur As Integer
Dim fin_mois As Date
Dim date_début As Date

  Range("C3").Select
  For i = 0 To 5
    compteur = 0
    fin_mois = ActiveCell.FormulaR1C1 = "=EOMONTH(R[0]C[-2],0)"
    date_début = Range("A3").Value

    If ((fin_mois - (date_début + 4)) > 0) Then
      compteur = compteur + Range("C3")
    ElseIf ((ActiveCell.FormulaR1C1 = "=ABS(fin_mois - (date_début + 4))") <= 3) Then
      compteur = compteur + Range("C3")
    Else
      Range("C58").Value = compteur
    End If
  Next

End Sub

Merci beaucoup Banzai64, grâce à toi je n'ai plus de message d'erreur ! =)