Tester existence repertoire dans Excel VBA

<config>Windows 7 / OFFICE 2010
Bonjour,
(tout d'abord je ne suis pas un Pro en VBA ni en macro!!!)

je cherche a tester l'existence d'un répertoire dans une macro excel et malgré le sujet traité Xfois, je ne trouve pas de solution à mon Pb.
si je teste en "dur" l'existence d'un répertoire pas de pb
voici le code
Sub test()

If Dir("c:\toto", vbDirectory) = "" Then
MsgBox "Le répertoire n'existe pas"
Else
MsgBox "Le répertoire existe"
End If
End Sub
par contre si je remplace par une variable problème, je dois faire une énorme boulette mais je sèche complètement
voici le code

Sub test()


Dim rep_fic As String, dat_sec As String, nom_sec As String

rep_fic = "C:\Factdavid\" & Year(Range("date_facture")) & "\" & Range("mois_caract") & "\"

nom_sec = Range("nom_cli") & "." & Year(Range("date_facture")) & "-" & Month(Range("date_facture")) & "-" & Day(Range("date_facture")) & ".xls"
MsgBox rep_fic

If Dir("rep_fic", vbDirectory) = "" Then

MsgBox "Le répertoire n'existe pas"
MkDir rep_fic
Else
MsgBox " Le répertoire existe"

End If
End Sub
j'ai vérifié ma variable rep_fic est bien alimentée !!

De l'aide SVP. Merci d'avance