Sub Tuyautage()
Dim Cellule As Range
Dim NouveauClasseur As Workbook
'Pour chaque cellule utilisée dans la feuille idée
For Each Cellule In Worksheets("idée").UsedRange
With Cellule
'Si l'intérieur de la cellule utilisée est de couleur violette
If .Interior.Color = 13082801 Then
'Remplacer la valeur de cette cellule par sa valeur actuelle
.Value = Cellule.Value
.NumberFormat = "0.00"
'Retourner à un format de cellule sans remplissage
.Interior.Pattern = xlNone
End If
End With
Next
'Création d'un nouveau classeur
Set NouveauClasseur = Workbooks.Add
'Couper les colonnes P jusqu'a AW dans la feuille source
ThisWorkbook.Worksheets("idée").Range("P1:AW1").EntireColumn.Cut
'Coller les colonnes dans la feuille de destination
NouveauClasseur.Worksheets("Feuil1").Range("A1").Insert
'Enregistrement du nouveau classeur dans le répertoire de l'actuel
NouveauClasseur.SaveAs ThisWorkbook.Path & "\Tuy.xlsx"
'Fermeture du nouveau classeur
NouveauClasseur.Close
'Libération de la mémoire
Set NouveauClasseur = Nothing
'Message de confirmation
MsgBox "Exécution terminée avec succès !", vbInformation
End Sub