Code VBA pour transfert de Excel vers WORD

With Excel.Workbooks(strEcelDoc)
      Select Case blWord
             Case True
                  Dim vrtfichierconf As Object
                  Set vrtfichierconf = CreateObject('Word.Application')
                  vrtfichierconf.Documents.Open FileName:='Q:\\intranet\\integration\\Outils\\Utilitaires d'analyse de splits\\Word_Confusius.doc', ConfirmConversions:=False, _
                                            ReadOnly:=True, Format:=wdOpenFormatAuto
                  With vrtfichierconf.Documents('Word_Confusius.doc')
                       If intJumpColonne <> 0 Then
                            .PageSetup.TextColumns
                            .SetCount NumColumns:=2
                            .EvenlySpaced = True
                            .LineBetween = False
                            '.Width = InchesToPoints(3.7)
                            ' .Spacing = InchesToPoints(0.1)
                       End If
                      .Application.ScreenUpdating = False
                      .Application.ScreenUpdating = False
                  End With

Select Case blWord
                    Case True
                            vrtfichierconf.Selection.PasteSpecial DataType:=wdPasteMetafilePicture, Placement:=wdInLine  'PasteSpecial Placement:=wdFloatOverText
                            intResetAjust = intResetAjust + 1
                            If intResetAjust = intReset Then
                               With vrtfichierconf.Selection
                                    .EndKey Unit:=wdStory
                                    .InsertBreak Type:=wdPageBreak
                                    .GoTo What:=wdGoToPage, Which:=wdGoToNext, Count:=1
                                    .MoveDown Unit:=wdLine, Count:=1
                               End With
                            End If

Select Case blWord
           Case True
             With vrtfichierconf
                 .Visible = True
                 .WindowState = wdWindowStateMaximize
                 .Selection.HomeKey Unit:=wdStory
                 .ScreenUpdating = True
                 .ScreenRefresh
            End With