Trouve = False
Set wb1 = ThisWorkbook 'classeur maitre
classeur_maître = wb1.Name
For Each wb In Workbooks
If wb.Name Like "LEA*" Then
Set wb2 = wb 'classeur_esclave
classeur_esclave = wb.Name
Trouve = True
Exit For
End If
Next
If Not Trouve Then Exit Sub 'si pas de classeur_esclave
'Au choix s'il faut vraiment activer qq chose
Windows(classeur_maître).Activate
Windows(classeur_esclave).Activate
wb1.Activate
wb2.Activate