Private Sub CmdAnnuler_Click()
Dim NomFichier, Rep
Set Rep = Application.FileDialog(msoFileDialogFilePicker)
NomFichier = Rep.SelectedItems(Rep.FilterIndex)
On Error GoTo fin
If NomFichier <> "" Then
With Application.VBE.ActiveVBProject.References
.Remove .Item(NomFichier)
End With
End If
fin:
End Sub