Sans select ?

Bonsoir, est-ce possible d'avoir ce code sans le select ?

Sub efface()

Range("A4:B100").Select
    Selection.ClearContents
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub

Bonsoir

essayes

Sub efface()
  With Range("A4:B100")
    .ClearContents
    With .Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
  End With
End Sub

Superbe, merci.