Private Sub CommandButton1_Click()
MsgBox "CA MARCHE !!!!!!!!!!!!!!"
Dim Modulos As String
Modulos = "C:\Documents and Settings\STAGIAIRE.FINANCE\Bureau\Achats\SUPPORT\Modules\Validation.bas"
With Workbooks(ActiveWorkbook.Path & "\" & ActiveWorkbook.Name & ".xls").VBProject
.VBComponents.Import Modulos
End With
End Sub