Private Sub Worksheet_Change(ByVal Target As Range)
If Target <> [macel] Then Exit Sub
Chemin = [Chemin]
Workbooks.Open Filename:=Chemin & [macel].Value
Workbooks([macel].Value).Activate
Sheets("Modele").Select
Sheets("Modele").Cells.Select
Selection.Copy
Windows("Liste de choix.xls").Activate
Sheets("Feuil3").Select
Sheets("Feuil3").Cells.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Feuil3").Range("A1").Select
End Sub