Dim ObjWord As Word.Application
Dim LeDocWord As Word.Document
Dim i As Integer
Dim iInit As Integer
Dim iBlock As Integer
Dim strTab As Worksheet
Dim nom, test As String
iInit = 6
i = iInit
iBlock = 1
Do While FeuilleExiste(Feuil49.Range("A" & i)) And i < 39
Set strTab = Nothing
nom = Feuil49.Range("A" & i)
strTab.Name = nom
ThisWorkbook.Sheets(strTab.Range(RechercheCoordoneesFin(Feuil49.Range("A" & i)))).Copy
LeDocWord.Bookmarks("TEST" & iBlock).Range.PasteSpecial Link:=False
Call ViderLePressePapier
i = i + 1
iBlock = iBlock + 1
Loop