Option Explicit
Private Sub CommandButton1_Click()
Dim i&, rep
Application.DisplayAlerts = False
For i = 6 To 9 'Ligne pour les feuilles
If Cells(i, 4) = "X" Then
rep = MsgBox("Voulez-vous effacer " & Cells(i, 3), vbYesNo, "Effacement")
If rep = vbYes Then
Worksheets(Cells(i, 3).Value).[C9:I24].ClearContents
Range(Cells(i, 5), Cells(i, 7)).ClearContents 'Un ensemble de cellule (de la colonne E (5) à la colonne G (7)
Cells(i, 9).ClearContents 'Effacement de la colonne I (9)
End If
End If
Next
End Sub