Sub Macro1()
Dim PlagErr As Range
On Error Resume Next
Set PlagErr = Columns(1).SpecialCells(xlCellTypeConstants, 22)
On Error GoTo 0
If Not PlagErr Is Nothing Then
Application.Goto PlagErr
MsgBox "Valeurs de cellules non numériques" & vbLf & PlagErr.Address(0, 0)
Exit Sub
End If
MsgBox "OK pour continuer"
End Sub