Sub enregistre()
Application.DisplayAlerts = False
Dim r As Integer
Dim ws As Worksheet
Dim feuilles_select As String
feuilles_select = ""
For Each ws In Worksheets
If ws.Name Like "Feuil*" Then ws.Select [COLOR="Red"]Replace:=False[/COLOR]
Next
Application.DisplayAlerts = True
[...]
End Sub