Sub InsererUnTableauAuFormatMonetaireDansWord()
Dim I As Integer
Dim MonTableau As Range
Dim Chemin As String
Dim WordApp As Word.Application ' As Object
Dim WordDoc As Word.Document ' As Object
Chemin = ThisWorkbook.Path & "\Essai"
Set MonTableau = Range("t_Items")
MonTableau.Columns(2).NumberFormat = "$#,##0.00_);($#,##0.00)"
Set WordApp = CreateObject("word.application")
WordApp.Visible = True
Set WordDoc = WordApp.Documents.Add
MonTableau.Copy
WordDoc.Range.Paste
WordDoc.SaveAs Filename:=Chemin, FileFormat:=12
' WordDoc.Close savechanges:=wdSaveChanges
' WordApp.Quit
MonTableau.Columns(2).NumberFormat = "#,##0.00"
Set WordDoc = Nothing
Set WordApp = Nothing
Set MonTableau = Nothing
End Sub