Format Date Comparaison

Sub ColDate()

    'Compte le nombre de mois entre la date de début et la date de fin
   Sheets("Inputs012").Activate
   Dat1 = Range("D2")
   Dat2 = Range("E2")
   Nbre_mois = (Year(Dat2) - Year(Dat1)) * 12 + Month(Dat2) - Month(Dat1)
   If Day(Dat2) - Day(Dat1) <> 0 Then
    Nbre_mois = Nbre_mois + 1
   End If
   Annee = Year(Range("D2").Value)
   Sheets("Feuil1").Activate
   Range("A1") = Format(Date, "mmmm yyyy")

      For c = 2 To Nbre_mois + 1
         Cells(2, c).Value = DateSerial(Annee, c, 1)
         Cells(2, c).Value = Format(Cells(2, c).Value, "mmmm yyyy")
      Next 
      
    ' Précise si c'est des prévisions ou du réel
    Sheets("Feuil1").Activate
      For c = 2 To Nbre_mois + 1
            If Cells(2, c).Value > Cells(1, 1).Value Then
                Cells(1, c).Value = "Prévision"
            Else: Cells(1, c).Value = "Réel"
            End If
      Next c
        
End Sub