range("A2:H" & activesheet.usedrange.row+ activesheet.usedrange.rows.count).clearcontents
Sub mise_a_blanc()
Dim e_v As Range, e_f As Range, effacez_moi As Range
On Error Resume Next
With Range("A:F")
Set e_v = .SpecialCells(2, 23)
Set e_f = .SpecialCells(-4123, 23)
End With
If e_v Is Nothing And e_f Is Nothing Then
MsgBox "Votre feuille est vide", vbExclamation, "Attention"
End
ElseIf e_v Is Nothing Then
Set effacez_moi = e_f
ElseIf e_f Is Nothing Then
Set effacez_moi = e_v
Else
Set effacez_moi = Union(e_f, e_v)
End If
On Error GoTo 0
effacez_moi.ClearContents
End Sub