Bonsoir Canard,
En premier, le code que tu indiques ne fait pas ce que tu dis, s'il y a des cellulles vides dans la plage, elles seront sélectionnées ! La commande sélectionne seulement une plage qui a pour limite les premières lignes et colonnes qui n'ont pas de cellulles pleines adjacentes avec la plage visée.
Sinon pour répondre à ton premier point voici une piste :
Sub Dragon()
Dim Cell As Range
Range('A1').Select
For Each Cell In ActiveCell.CurrentRegion
If Cell.Address <> '$A$2' And Cell.Address <> '$B$2' And Cell.Address <> '$C$2' And _
Cell.Address <> '$D$2' And Cell.Address <> '$E$2' And Cell.Address <> '$F$2' Then
Union(Selection, Cell).Select
End If
Next Cell
End Sub
Bref, c'est la méthode Union qui fait tout, si tu veux en plus ne pas effectivement sélectionner les cellulles vides dans ta plage, il suffit de rajouter un
And Cell <> '' dans le IF
Pour le point deux, ta question est trop floue et..; je n'utilise jamais le 'Bloc notes ' :whistle: :S
A savoir si c'est les cellulles que tu veux récupérer, les valeurs etc...Dans tous les cas, il faudra implémenter quelquechose au fur et à mesure des passages de la boucle.
Bon courage,
Bfr [file name=Selectwithtrou.zip size=6021]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Selectwithtrou.zip[/file]