Sub Enregistrement()
Dim Sh As Worksheet
For Each Sh In Worksheets 'Pour tous les onglets(sheet)
If Sh.Tab.ColorIndex = 3 Then 'Si la couleur de l'onglet est rouge alors
Sh.Copy 'On copie l'onglet
Application.DisplayAlerts = False 'S'il y a une alerte, il n'y a pas de message apparent
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & Sh.Name & ".xlsx" 'On enregistre dans le répertoire du fichier source
ActiveWorkbook.Close 'On ferme le nouveau classeur
End If
Next Sh ' On passe à l'onglet suivant
End Sub