Sub Test_II()
Range("A1:C10") = Array(1, "=ROW()*COLUMN()", "ABC")
spCell2 Range("A1:C10"), xlCellTypeFormulas, xlNumbers
spCell2 Range("A1:C10"), xlCellTypeConstants, xlTextValues
spCell2 Range("A1:C10"), xlCellTypeConstants, xlNumbers
End Sub
Private Sub spCell2(Plage As Range, cType As XlCellType, X As XlSpecialCellsValue)
MsgBox Plage.SpecialCells(cType, X).Address
End Sub