'Toutes les cellules avec une constante Columns("G:G").SpecialCells(xlCellTypeConstants, 23).Select
'Toutes les cellules avec une formule
Columns("G:G").SpecialCells(xlCellTypeFormulas, 23).Select
'Toutes les cellules avec une constante ou une formule
Union(Columns("G:G").SpecialCells(xlCellTypeConstants, 23), _
Columns("G:G").SpecialCells(xlCellTypeFormulas, 23)).Select