Sub maintenance()
Application.ScreenUpdating = True
Dim Compteur As Integer
Compteur = 0
Dim Feuille As Worksheet
Dim Nom_fichier As String
Const DossierSauvegarde As String = "H:\Contrat Maintenance\"
Dim Feuilles(1 To 2) '2 pour la copie de 2 feuilles
Feuilles(1) = "Total des coûts"
Feuilles(2) = "SYNTHESE"
Sheets(Feuilles).Copy
Nom_fichier = Sheets("SYNTHESE").Range("D8") & " " & Sheets("SYNTHESE").Range("D11")
ActiveWorkbook.SaveAs DossierSauvegarde & Nom_fichier & " ", FileFormat:=-4143, CreateBackup:=False
[COLOR="Blue"]à partir d'ici ça ne marche plus
j'aimerai aussi recopier les onglets dont la cellule F6 a pour valeur 1 ou 2[/COLOR]
For Each Feuille In Worksheets
Range("F6").Select
If ActiveCell = ">0" Then '[COLOR="Blue"]test si présence de 1 ou 2[/COLOR]
Sheets(Feuilles).Copy
Nom_fichier = Sheets("SYNTHESE").Range("D8") & " " & Sheets("SYNTHESE").Range("D11")
ActiveWorkbook.SaveAs DossierSauvegarde & Nom_fichier & " ", FileFormat:=-4143, CreateBackup:=False
Application.ScreenUpdating = True
End If
Next Feuille
End Sub