Sur certaines feuilles j'ai des cellules vides à compléter par :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
Range("A7:C7").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.FormulaR1C1 = "=R[-1]C"
çà plante (bien sûr) sur la troisième ligne quand dans ma sélection il n'y a pas de cellules vides.
Comment tester avant d'appliquer cette ligne.

D'avance, merci