bonsoir
j'ai télécharger ton fichier, faut pas m'en vouloir, si je ne te répond pas tout à fait en rapport avec ta macro, mais je ne sais pas travailler sur les macros des autres, lol.
pour travailler sur une sélection de cellules, il faut une boucle :
en ayant sélectionner les cellules :
for each c in selection
ton traitement en sachant que c c'est ta cellule de travail.
next c
en connaissant les cellules :
Dim tablo As Variant
tablo = Array('a1', 'c25', 'b23', 'd2', 'e10')
For i = 0 To UBound(tablo)
Range(tablo(i)) = ton traitement
Next i
avec des cellules en colonne (de a1 à a??? par exemple) :
dim c as range
for each c in range('a1:a'&range('a65536').end(xlup).row)
ton traitement en sachant que c c'est ta cellule de travail de a1 a a???.
next c
voilà pour le traitement des cellules à travers une boucle.
J'ai vu à travers ta macro, que tu utilisais select, tu peut t'en passer , le sélection de cellule ralentit le code.
en espérant que je te serais utile....
Salut
hervé