effacer la selection

Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 12)).ClearContents

Sub Macro1()
Dim cel As Range 'déclare la variable cel
 
If Selection.cells.Count <> 12 Then 'condition 1 : si le nombre de cellules de la sélection est différent de 12
    MsgBox "Vous devez sélectionner de la colonne A jusqu'à L !" 'message
    Exit Sub 'sort de la procédure
End If 'fin de la condition 1
 
If Selection.Cells(1).Column <> 1 Then 'condition 2 : si la première cellule de la sélection n'est pas dans la colonne A
    MsgBox "Vous devez sélectionner de la colonne A jusqu'à L !" 'message
    Exit Sub 'sort de la procédure
End If 'fin de la condition 2
 
Selection.ClearContents 'efface le contenu de la sélection
End Sub

selection.clearcontents