Sub test()
Dim UmmaGumma
UmmaGumma = Array(1, "ABC", "=TEXT(NOW(),""mmmm"")", vbNullString, "=127/0", "=ISNUMBER(0)", "#DIV/0!", False)
[A1:A8] = Application.Transpose(UmmaGumma)
End Sub
Sub Macro1()
Range("A1:A8").Select
Selection.SpecialCells(xlCellTypeConstants, 23).Select
End Sub
Sub Macro2()
Range("A1:A8").Select
Selection.SpecialCells(xlCellTypeConstants, 2).Select
End Sub
Sub Macro3()
Range("A1:A8").Select
Selection.SpecialCells(xlCellTypeFormulas, 2).Select
End Sub
Sub Macro4()
Range("A1:A8").Select
Selection.SpecialCells(xlCellTypeFormulas, 23).Select
End Sub
'etc... je te laisse continuer les tests ;-)