Problème format date

Bonjour le forum,

voici une partie de macro suivante :

With ThisWorkbook.Sheets("Résas")
reference = .Range("AT1")
info = .Range("AS1")

Set celluleRecherche = .Range("A:A").Find(reference, , xlValues, xlWhole)
If Not celluleRecherche Is Nothing Then
memAdresse = celluleRecherche.Address
Do
celluleRecherche.Offset(0, 7).Value = info
Set celluleRecherche = .Range("A:A").FindNext(celluleRecherche)
Loop Until celluleRecherche.Address = memAdresse
End If

Donc, info = .Range("AS1")
AS1 est au format date francaise et à l'intérieur une formule =maintenant()
et lors de
celluleRecherche.Offset(0, 7).Value = info
il me passe le format date en anglais

J ai fait plusieurs essai et pas moyen, auriez vous une idée ?

Merci d'avance à tous,

Stef.