Hello,
Je suis désolé mais je n'ai pas trop compris ta demande... Situ as besoin de copier le bloc de cellule tu peux faire :
Dans la deuxième
Copie la plage de A1 jusqu'à la dernière colonne & dernière ligne
contenant des données de la feuille NomFeuille et la colle dans
le document Word "C:\DocAOuvrir.doc"
Sub CopiePlageDonnees ()
Dim PlageACopier As Range
Dim NbLignes As Long
Dim NbCols As Integer
Sheets("Feuil2").Activate
If WorksheetFunction.CountA(Cells) > 0 Then
NbLignes = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row
NbCols = Cells.Find("*", [A1], , , xlByColumns, xlPrevious).Column
Else
MsgBox "La feuille ne contient pas de données"
Exit Sub
End If
Set PlageACopier = Range(Cells(1, 1), Cells(NbLignes, NbCols))
PlageACopier.Copy
Sheets("Feuil1").select
Range("A1").Select
ActiveSheet.Paste
End Sub
Mais comme j'imagine que tu souhaites les copier à des endroits particulier peut être pourrais tu mettre ton fichier en ligne.
Bye, @ +
Ju