Sub TEST()
Range("A1:B10") = "=ROW()^COLUMN()"
MsgBox "Par défaut on efface tout"
effacons Sheets("Feuil1"), "A1:B10"
Range("A1:B10") = "=INT(NOW()+ROW()^COLUMN())"
Range("A1:B10").Interior.ColorIndex = 6
MsgBox "On efface le contenu"
effacons Sheets("Feuil1"), "A1:B10", 1
Range("A1:B10") = "=INT(PI()*ROW()^COLUMN())"
Range("A1:B10").Font.Bold = True
MsgBox "On efface le format"
effacons Sheets("Feuil1"), "A1:B10", 2
MsgBox "fin test"
End Sub
Private Sub effacons(Feuille As Worksheet, Plage As String, Optional Z = 0)
Select Case Z
Case 0
Feuille.Range(Plage).Clear
Case 1
Feuille.Range(Plage).ClearContents
Case 2
Feuille.Range(Plage).ClearFormats
End Select
End Sub