Private Sub OpenP1_Click()
Label1.Caption = "Traitement en cours"
Workbooks.Open Filename:=ThisWorkbook.Path & "\P1.xls", UpdateLinks:=3
Application.Run ("P1.xls!UF1")
Label1.Caption = "Traitement terminé"
'Workbooks("P1.xls").Activate
ActiveWindow.Close
End Sub