Sub copicheptel()
Dim Wb As Workbook
Application.ScreenUpdating = False
'
Set Wb = Workbooks.Open(Filename:= _
ThisWorkbook.Path & "\" & Dir(ThisWorkbook.Path & "\" & "73*")) 'on affecte le Fichier trouvé dans la variable
With Sheets("cheptel") 'avec la feuille ""cheptel"" de ce fichier
.Activate 'on active la feuille ""cheptel"" de ce fichier
.Copy After:=Workbooks( _
"modele tri aprés contrôle siegev4.xlsm").Sheets(1) 'on la copie apres la feuille 1
End With
Wb.Close
ActiveSheet.Range("A1").Select 'on selectionne la cellule A1
Application.ScreenUpdating = True
End Sub