En fait j'ai une fonction (que j'ai récupérée) et qui fait cela
Public Function ChangeStr(strOriginal As Variant, strOldChar As String, strNewChar As String, intMatchCase As Integer) As Variant
' This function changes all substrings strOldChar in string strOriginal
' to strNewChar.
' The parameter intMatchCase has the same purpose as in the
' InStr() function, i.e. 1 makes the function case-sensitive, 0 does not
Dim temp As String, pos As Integer
temp = ""
If IsNull(strOriginal) Then
ChangeStr = Null
Exit Function
End If
If strOldChar = "" Or strOriginal = "" Then
ChangeStr = strOriginal
Exit Function
End If
pos = InStr(1, strOriginal, strOldChar, intMatchCase)
While pos > 0
temp = temp & Mid$(strOriginal, 1, pos - 1) & strNewChar
strOriginal = Right$(strOriginal, Len(strOriginal) - pos - Len(strOldChar) + 1)
pos = InStr(1, strOriginal, strOldChar, intMatchCase)
Wend
ChangeStr = temp & strOriginal
End Function
Donc dans ma configuration de ma table ACCESS, j'ai mis :
Req_SQL = "UPDATE Desc_Ch_audit_local SET Observations = ChangeStr(Observations,&VbLf,&VbCrLf,0);"
DoCmd.RunSQL Req_SQL
Il doit encore manquer qqch...