Sub Copie()
Dim Derlig As Long
Select Case MsgBox("Voulez-vous ouvrir le classeur ''Etiquette de teinte.xls?''", vbYesNo)
Case vbYes
With Workbooks("Déclaration BAT.xls").Sheets("Feuil1")
Derlig = .Range("A65000").End(xlUp).Row
Workbooks.Open Filename:="C:\Documents and Settings\Dr Banner\Bureau\Etiquette de teinte.xls"
Range("AA2").Resize(Derlig - 3, 1).Value = .Range("A4:A" & Derlig).Value
End With
Case vbNo
Exit Sub
End Select
End Sub