'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
Sub Macro1()
Dim xVal As Range, xFormu As Range, xUnion As Range
On Error Resume Next
'Toutes les cellules avec une constante
Set xVal = Columns("G:G").SpecialCells(xlCellTypeConstants, 23)
'Toutes les cellules avec une formule
Set xFormu = Columns("G:G").SpecialCells(xlCellTypeFormulas, 23)
On Error GoTo 0
'Toutes les cellules avec une constante ou une formule
If xVal Is Nothing Then
If Not xFormu Is Nothing Then Set xUnion = xFormu
ElseIf xFormu Is Nothing Then
If Not xVal Is Nothing Then Set xUnion = xVal
Else
Set xUnion = Union(xVal, xFormu)
End If
If xUnion Is Nothing Then
MsgBox "Pas de cellule contenant une valeur ou une formule !"
Else
xUnion.Select
End If
End Sub