Private Sub CommandButton1_Click()
Dim CompteurDeFeuille As Integer
For CompteurDeFeuille = 1 To Worksheets.Count
Worksheets(CompteurDeFeuille).Name = Worksheets(CompteurDeFeuille).Range("A1")
If CompteurDeFeuille > 2 Then
If CompteurDeFeuille = 3 Then
If MsgBox("Voulez vous vider l'EDT ?", vbInformation + vbYesNo, "Voulez vous vider l'EDT ?") = vbNo Then Exit Sub
End If
With Worksheets(CompteurDeFeuille).Range("C4:AC10,C12:AC18,C20:AC26,C28:AC34,C36:AC42,C45:AC50")
.ClearContents
.Interior.ColorIndex = xlNone
End With
End If
Next
End Sub