XL 2016 copie d'une partie d'un classeur vers un autre

job75 à dit:

Bonjour Guismo33,

Mettez cette macro où vous voulez et lancez-la :

Code:

Sub Copier()
Dim source As Workbook, dest As Workbook, n%
On Error Resume Next
Set source = Workbooks("Bureau") 'à adapter
Set dest = Workbooks("Compta") 'à adapter
If Err Then MsgBox "Les 2 fichiers 'Bureau' et 'Compta' doivent être ouverts...": Exit Sub
On Error GoTo 0
If source.Worksheets.Count <> dest.Worksheets.Count Then MsgBox "Le nombre des feuilles de calcul n'est pas le même !", 48: Exit Sub
For n = 1 To source.Worksheets.Count
    source.Worksheets(n).Range("A43:I114").Copy dest.Worksheets(n).Range("A43")
Next
End Sub

A+

Cliquez pour agrandir...