Sub MasqueOnglet()
Dim nbonglet As Byte
For nbonglet = 1 To ThisWorkbook.Sheets.Count
nomOnglet = Sheets(nbonglet).Name
If nomOnglet Like "*Libre*" Then
Sheets(nbonglet).Visible = False
End If
Next
End Sub