Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim i As Integer, fichier As String
fichier = ThisWorkbook.Path & "\Suggestion eco emballage.xlsm"
Workbooks.Open fichier
Application.ScreenUpdating = False
For i = 3 To Range("a65536").End(xlUp).Row
If Cells(i, 24) <> "" Then
Range(Cells(i, 1), Cells(i, 24)).Copy ActiveWorkbook.Sheets("Feuil1").Range("a65536").End(xlUp)(2)
End If
Next i
Application.DisplayAlerts = False
ActiveWorkbook.Save
ActiveWorkbook.Close
Cancel = True
End Sub
'A rajouter dans le classeur de destination
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
End Sub