Couleur dans lignes macro excel

Bonjour,

j'ai un probleme avec une macro
je voudrais que les ligne se mette en couleur en fonction des dates

si les dates de la feuille excel sont inferieures a la date de la 1er textbox alors les lignes se colorient en rouge
si les dates de la feuille excel sont comprises entre la date de la 1er textbox et la date de la 2eme textbox alors les lignes se colorient en jaune
si les dates de la feuille excel sont superieures à la 2 ème textbox alors les dates se colorient en vert

j'ai fais un prog mais ça ne marche pas

pouvez vous m'aider s'il vous plait ?

merci d'avance

prog:
Sub miseenformedelabase()

Dim wbk1, wbk2 As Workbook
Dim Fichier, cheminannee, cheminmois, chemindynamic, cheminairvehicleairframe, cheminairvehicleelec, cheminsupport, chemincommercialheli, cheminqualityassurance, chemindivers, chemingovheli As String
Dim debutmois, finmois As Date

annee = UserForm1.ComboBox3.Value
mois = UserForm1.ComboBox1.Value
Fichier = UserForm1.ComboBox2.Value
debutmois = UserForm1.TextBox1.Value
finmois = UserForm1.TextBox2.Value

cheminmois = "D:\Planning\" & annee & "\" & UserForm1.ComboBox1.Value
chemindynamic = "D:\Planning\" & annee & "\" & mois & "\" & "DYNAMIC EDDD EDDS"
cheminairvehicleairframe = "D:\Planning\" & annee & "\" & mois & "\" & "AIR VEHICLE AIRFRAME EDVEA"
cheminairvehicleelec = "D:\Planning\" & annee & "\" & mois & "\" & "AIR VEHICLE ELECTRIC SYSTEMS EDVE"
cheminsupport = "D:\Planning\" & annee & "\" & mois & "\" & "SUPPORT AND SERVICE ES"
chemincommercialheli = "D:\Planning\" & annee & "\" & mois & "\" & "COMMERCIAL HELICOPTERS EH"
cheminqualityassurance = "D:\Planning\" & annee & "\" & mois & "\" & "QUALITY ASSURANCE GSC EQOD"
chemindivers = "D:\Planning\" & annee & "\" & mois & "\" & "DIVERS"
chemingovheli = "D:\Planning\" & annee & "\" & mois & "\" & "GOVERNENTAL HELICOPTERS EG"

If Dir("D:\Planning\" & annee, vbDirectory) <> "" Then
MkDir (cheminmois)
MkDir (chemindynamic)
MkDir (cheminairvehicleelec)
MkDir (cheminairvehicleairframe)
MkDir (cheminsupport)
MkDir (chemincommercialheli)
MkDir (cheminqualityassurance)
MkDir (chemindivers)
MkDir (chemingovheli)

Else: MkDir ("D:\Planning\" & annee)
MkDir (cheminmois)
MkDir (chemindynamic)
MkDir (cheminairvehicleelec)
MkDir (cheminairvehicleairframe)
MkDir (cheminsupport)
MkDir (chemincommercialheli)
MkDir (cheminqualityassurance)
MkDir (chemindivers)
MkDir (chemingovheli)

End If

Set wbk1 = ThisWorkbook
Set wbk2 = Workbooks.Open(Filename:="D:\Planning\Fichiers de base\" & UserForm1.ComboBox2.Value)

wbk2.Sheets("liste appels").Rows("1:1").Select
Selection.AutoFilter
Columns("AB:AB").Select
Selection.NumberFormat = "m/d/yyyy"

'UserForm1.TextBox1.NumberFormat = "m/d/yyyy"
'UserForm2.TextBox2.NumberFormat = "m/d/yyyy"

For i = 2 To 4000
If debutmois > Cells(i, 28).Value Then
With Rows(i).Interior
.ColorIndex = 3
.Pattern = xlSolid
End With

ElseIf debutmois <= Cells(i, 28).Value And finmois >= Cells(i, 28).Value Then
With Rows(i).Interior
.ColorIndex = 44
.Pattern = xlSolid
End With

ElseIf finmois < Cells(i, 28).Value Then
With Rows(i).Interior
.ColorIndex = 4
.Pattern = xlSolid
End With

End If
Next i

end sub