Comparer des date en VBA

Bonjour,

Je cherche à comparer des dates dans un code VBA afin de déterminer dans quelle feuille je doit effectuer mes action.

J'ai essayer plusieurs méthode, cela semblais avoir fonctionné mais visiblement plus.

Les dates a comparer proviennent de Txtbox via un datepicker.
J'ai essayé en les affectant à des cellule non utilisées de mon tableau en les comparant avec les date directement puis avec des variables déclarées comme date mais sans résultat. Le programme rentre toujours dans le premier si
voici le code que j'ai tapé.


Dim feuille1 as string
Dim feuille2 as string

cells(4,1) = TxtDateDebut
cells(5,1) = TxtDateFin

If sheets("FEUILLE-2018").cells(14,6) < cells(4,1) < sheets("FEUILLE-2018").cells(14,734) then

if sheets("FEUILLE-2018").cells(14,6) < cells(5,1) < sheets("FEUILLE-2018").cells(14,734) then

feuille1 = "FEUILLE-2018"
feuille2 = "0"

else

if sheets("FEUILLE-2018").cells(14,734) < cells(5,1) < sheets("FEUILLE-2019").cells(14,734) then

feuille1 = "FEUILLE-2018"
feuille2 = "FEUILLE-2019"

end if
end if

else

If sheets("FEUILLE-2018").cells(14,734) < cells(4,1) < sheets("FEUILLE-2019").cells(14,734) then

if sheets("FEUILLE-2018").cells(14,734) < cells(5,1) < sheets("FEUILLE-2019").cells(14,734) then

feuille1 = "FEUILLE-2019"
feuille2 = "0"

else

if sheets("FEUILLE1").cells(14,734) < cells(5,1) < sheets("FEUILLE2").cells(14,734) then

feuille1 = "FEUILLE-2019"
feuille2 = "FEUILLE-2020"

end if
end if
end if


P.S. : voici ce que contiennent les cellules
sheets("FEUILLE-2018").cells(14,6) --> 01/01/2018
sheets("FEUILLE-2018").cells(14,734) --> 31/12/2018
sheets("FEUILLE-2019").cells(14,734) --> 31/12/2019.

Et les comparaison ne fonctionnent pas.
Bien entendu, le format de ces cases son des dates.

Par avance merci.