Sub MoveSh()
Dim Sh As Worksheet, ShArea As Variant
For Each Sh In Worksheets
If Sh.Name Like "*LEA*" Then ShArea = ShArea & IIf(ShArea = "", "", ";") & Sh.Name
Next Sh
If ShArea <> "" Then
ShArea = Split(ShArea, ";")
Worksheets(ShArea).Copy
MsgBox "Attention" & vbLf & "Vous êtes dans le classeur " & ActiveWorkbook.Name, vbCritical
ThisWorkbook.Worksheets(ShArea).Delete
End If
End Sub