Private Sub Workbook_Open()
Au déùmarrage empêcher les défilemnts hori et verti
Et copier une colonne dans Feuil2
Interdiction
Sheets('Feuil1').Activate
With ActiveWindow
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
End With
Copie
Range('A1:J2300').Copy _
Destination:=Sheets('Feuil2').Range('A1')
End Sub