Selection une plage pour supprimer le contenu

Sub Test()
Range(ActiveCell.Address, ActiveCell.Offset(0, -1)).ClearContents

End Sub

With Sheets("Feuil2") 'indique que l'on travaillera sur la feuille 2
 
Dim Col_pdej As Long 'Les numéro de lignes sont de type LONG
Col_pdej = Col + 25 
'Mettre les '.' devant les Range et les Cells pour indiquer qu'ils appartiennent à la feuille2.
.Range(.Cells(Lig, Col - 1), .Cells(Lig, Col_pdej)).ClearContents
End With

Private Sub CommandButton1_Click()
Var_Patient = ActiveCell.Offset(0, -3).Value
Range(ActiveCell, ActiveCell.Offset(0, -1)).ClearContents
For Each F In ThisWorkbook.Worksheets
    If F.Name <> "patient" Then
        For i = 4 To F.Range("A" & Application.Rows.Count).End(xlUp).Row
            If F.Cells(i, 1).Value = Var_Patient Then F.Range("B" & i & ":AD" & i).ClearContents
        Next i
    End If
Next F
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("E4:E65536")) Is Nothing Then
Cancel = True
Var_Patient = ActiveCell.Offset(0, -3).Value
Range(ActiveCell, ActiveCell.Offset(0, -1)).ClearContents
For Each F In ThisWorkbook.Worksheets
    If F.Name <> "patient" Then
        For i = 4 To F.Range("A" & Application.Rows.Count).End(xlUp).Row
            If F.Cells(i, 1).Value = Var_Patient Then F.Range("B" & i & ":AD" & i).ClearContents
        Next i
    End If
Next F
End If
End Sub

Private Sub CommandButton1_Click()
    Dim Idx As Variant    'Doit être variant
    Dim ref As Variant    'Doit être variant les ref sont des numérique ou des string
    ref = Cells(ActiveCell.Row, 2)    'On enregistre la référence de la chambre
    With Sheets("petits_dèj")    'Travailler sur la feuil2
        'Utiliser la fonction de feuille de calcul EQUIV (MATCH) pour
        'Retrouver l'index de la ligne sur la feuille 2
        lig = Application.Match(ref, .Range("A:A"), 1)
        'Si la fonction ne retourne pas une valeur d'erreur
        '(c'est pourquoi sa variable doit être de type variant)
        If Not IsError(lig) Then
            'on vide le contenu de la ligne (29 colonnes)
            .Cells(lig, 1).Resize(, 29).ClearContents
            MsgBox "La ligne de la ref " & lig & " a été éffacée"
        Else
            MsgBox "La ligne de la ref " & lig & " n'a pas étée trouvée!"
        End If
        'On vide le contenu de la feuille (colonne An:Bn) qui contient la reférence de chambre
        Cells(ActiveCell.Row, 1).Resize(, 2).ClearContents
    End With
End Sub