Bonjour à tous

Sur le code suivant j'ai une erreur d'execution 1004 pas de cellules correspondantes.

Cette erreur se produit apparement quand les cellules sont vides, comment puis je eviter ou contourner le blocage de ma macro par cette erreur.

voici le code :

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

Merci d'avance