AlainTech Pas trouvé? Cherche encore! | Code modifié:
Dim iDerLigne As Integer iDerLigne = Cells.SpecialCells(xlLastCell).Row Range([A1].End(xlDown), Cells(iDerLigne, 1)).Select Selection.FillDown |
---------------
Si on vous donne une info qui marche, DITES-LE!!!! ------ Si vous trouvez seul, AUSSI, votre solution peut servir à d'autres! ------ Je dois la majorité de mes connaissances à mes erreurs!
|