Application.ScreenUpdating = False
Set trouve = Sheets("BD_Eleves").Columns("B:B").Find(What:=Sheets(1).Cells(6, 4), LookIn:=xlValues, _
LookAt:=xlPart, MatchCase:=False, SearchFormat:=False)
If Not trouve Is Nothing Then LigneDepartUnique = trouve.Row
Sheets(1).Select 'sans doute pas utile
Range("A1").Select 'idem
Call CreationFichier
LigneDepartUnique = 0
Application.ScreenUpdating = True