Re chef!
question 1:
Workbooks.Open Filename:="C:\mes documents\source.xls"
question 2:
a insérer dans ton code ( si c'est le bouton de ta précédente question tu peux mettre ca dans la prodcédure de la feuill1 avant copier_ligne)
Dim fin As Integer
fin = MsgBox("cette action est irréversible; continuer?", vbYesNo)
If fin = 7 Then Exit Sub