Probléme avec dateserial(RESOLU)

Sub essai()
    For i = 1 To 3    ' LES CELLULES B1 ET B2 DEVRAIT AVOIR UN X

        If IsDate(Cells(i, 1)) Then
            If Month(Cells(i, 1)) = 2 And Year(Cells(i, 1)) = 2014 Then Cells(i, 2) = "X"
        End If
    Next i

End Sub

Sub essai_X()

    For i = 1 To 3    'LA CELLULE B2 DEVRAIT AVOIR UN X
        If Cells(i, 1) = DateSerial(2014, 2, 1) Then Cells(i, 2) = "X"
    Next i

End Sub

Sub essai_Z()

    For i = 4 To 5    ' LA CELLULE A4 ET A5 DOIT ÊTRE MISE A 1 MOIS PLUS TARD
        Cells(i, 1) = DateSerial(Year(Cells(i, 1)), Month(Cells(i, 1)) + 1, Day(Cells(i, 1)))
    Next i

End Sub