Bonjour
Allez une autre solution en bouclant à l'envers et avec Like (déclaration integer car 10000 lignes
)
Sub supp()
dim i as Integer
For i=range('a65536').end(xlup).row to 1 step -1
if range('A' & i) like 'Famille Durand*' then rows(i).delete
next i
End sub
Bonne journéeMessage édité par: Pascal76, à: 13/01/2006 08:07