Comment détecter en VBA si une cellule affiche ### faute de place pour afficher une donnée en entier ?

Tu peux utiliser ceci:

Sub test()

Dim X As Range
Set X = Range("A1:A10").Find(What:="#", LookIn:=xlValues, LookAt:= _
        xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext)
If Not X Is Nothing Then
    MsgBox "Tu as un affichage ""#####"" dans ta colonne."
End If
End sub

Ou bien ceci

If Left([A1].Text, 1) = "#" And IsNumeric([A1]) Then