Bon je l'ai re-bidouillé pour pouvoir la mettre sur le fichier B comme ça
Sub Macro1()
Dim A As Workbook
Dim OA As Worksheet
Dim B As Workbook
Dim OB As Worksheet
Dim PL As Range
Dim LI As Integer
Dim CEL As Range
Dim I As Byte
Set A = Workbooks("1 - Copie.xls")
Set OA = A.Sheets("Feuil1")
Set B = Workbooks("Bilan.xlsm")
Set OB = B.Sheets("Bilan")
Set PL = Application.Union(Range("A2"), Range("N18"), Range("N43"), Range("N46"), Range("AJ25"), Range("AJ43"))
LI = IIf(B.Range("A1").Value = "", 1, B.Cells(Application.Rows.Count, 1).End(xlUp).Rows + 1)
I = 1
For Each CEL In PL
B.Cells(LI, I).Value = CEL.Value
'ou CEL.Copy B.Cells(LI, I)
I = I + 1
Next CEL
End Sub
Mais la ligne surligné à un "bug" : défaut : Erreur d'exécution '438':
Propriété ou méthode non gérée par cet objet
Est ce que ma bidouille est bonne et où est le problème avec cette ligne
Merci