Private Sub CommandButton1_Click()
Dim ChNomF As String, ClsSrc As Workbook
Me.Hide
SectionFiltre = Me.ComboBox1.Value
ChNomF = ThisWorkbook.Path & "\Extractions\" & SectionFiltre & ".xlsx"
On Error Resume Next
Set ClsSrc = Workbooks.Open(Filename:=ChNomF)
If Err Then
MsgBox "Erreur en tentant d'ouvrir :" & vbLf & ChNomF & vbLf & Err.Description, vbCritical, Me.Caption
Me.Show: Exit Sub: End If
On Error GoTo 0
ClsSrc.Worksheets(1).Copy After:=Feuil3
ClsSrc.Close SaveChanges:=False
Unload Me
End Sub