ah, par contre ça ne remplace que un seul des 2 /.
 
ma fonction est celle la :
 
Function ReplaceTest(patrn, replStr)
  Dim regEx, str1'              ' Crée des variables.
  str1 = date
  Set regEx = New RegExp            ' Crée l'expression régulière.
  regEx.Pattern = patrn            ' Définit les critères.
  regEx.IgnoreCase = true           ' Ignore la casse.
  ReplaceTest = regEx.Replace(str1, replStr)   ' Effectue le remplacement
End Function
 
MsgBox(ReplaceTest("/", "-" ))      ' Remplace '/' par '-'.
 
 
 
c'est un peu un copier coller de l'aide vbscript