bonjour a tous

je voudrais par rapport au code ci dessous le modifier pour pouvoir effacer plusieur lignes ed la cellule 1 à 14 suivant une selection manuelle verticale de plusieurs cellules aleatoire dans un tableau sur une colonne mais sur plusieurs lignes continues.

Pour l'instant le code si dessous ne peut effacer que la ligne selectionnée de la cellule 1 à 14, ou si plusieurs cellules sont selectionnées verticalement seulement la premiere est effacé.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub efface()
 
 Dim t As Variant
 
 ActiveCell.EntireRow.Select
 ActiveCell.Offset(0, 0).Select
 
 t = ActiveCell.Address
 
 Range(t, Range(t).Offset(0, 14)).SpecialCells(xlCellTypeConstants, xlNumbers).ClearContents
Range(t, Range(t).Offset(0, 14)).SpecialCells(xlCellTypeConstants, xlTextValues).ClearContents
 
 End Sub
Merci d'avance