Re,
@ArthurB, vous lisez correctement quand on vous donne le code
Ce n'est pas ce que vous à dis Pedro22, ni moi vous auriez suivi... aucun souci
If MsgBox("Etes vous sûr de vouloir exécuter la macro ?", _
vbExclamation + vbYesNo, "Confirmation exécution") = vbNo Then Exit Sub
' On continue
With Sheets("Tableau(10)")
De plus, c'est quoi ce code
With Sheets("Tableau(10)")
Sheets("Tableau(10)").Select
Range("C10:E2009").Select
Selection.ClearContents
C'est comme cela que ça s'utilise
With Sheets("Tableau(10)")
.Range("C10:E2009").ClearContents
'...
Et en l'occurrence comme cela se répète, selon ma conception pour le IF
Sub eraseee()
Dim Ind As Integer, Tablo() As String
' eraseee Macro
'
If MsgBox("Etes vous sûr de vouloir exécuter la macro ?", _
vbExclamation + vbYesNo, "Confirmation exécution") = vbNo Then Exit Sub
' Si OUI, on continue
Tablo = Split("Tableau(10),Tableau(20),Tableau(40),Tableau(60)", ",")
For Ind = 0 To UBound(Tablo) - 1
With Sheets(Tablo(Ind))
.Range("C10:E2009").ClearContents
.Range("H10:J2009").ClearContents
.Range("M10:O2009").ClearContents
.Range("R10:T2009").ClearContents
.Range("W10:Y2009").ClearContents
.Range("AB10:AD2009").ClearContents
.Range("AG10:AJ2009").ClearContents
.Range("AM10:AP2009").ClearContents
.Range("AS10:AV2009").ClearContents
.Range("AY10:BC2009").ClearContents
.Range("BF10:CE2009").ClearContents
End With
Next Ind
End Sub
Selon celle de Pedro22 ou Jean-Eric
Sub eraseee()
Dim Ind As Integer, Tablo() As String
' eraseee Macro
'
If MsgBox("Etes vous sûr de vouloir exécuter la macro ?", _
vbExclamation + vbYesNo, "Confirmation exécution") = vbYes Then
' Si OUI, on continue
Tablo = Split("Tableau(10),Tableau(20),Tableau(40),Tableau(60)", ",")
For Ind = 0 To UBound(Tablo)
With Sheets(Tablo(Ind))
.Range("C10:E2009").ClearContents
.Range("H10:J2009").ClearContents
.Range("M10:O2009").ClearContents
.Range("R10:T2009").ClearContents
.Range("W10:Y2009").ClearContents
.Range("AB10:AD2009").ClearContents
.Range("AG10:AJ2009").ClearContents
.Range("AM10:AP2009").ClearContents
.Range("AS10:AV2009").ClearContents
.Range("AY10:BC2009").ClearContents
.Range("BF10:CE2009").ClearContents
End With
Next Ind
End If
End Sub
A+