Sub Info(Target As Range)
Dim larg1 As Single, larg2 As Single, f As String
Application.ScreenUpdating = False
With Target.Cells(1, 1)
larg1 = .ColumnWidth
.Columns.AutoFit 'ajustement de la colonne
larg2 = .ColumnWidth
.ColumnWidth = larg1
f = .NumberFormat
End With
With Target.Validation
.Delete
.Add Type:=xlValidateInputOnly
.InputMessage = IIf(larg2 > larg1, [COLOR="Red"]Format(Left(Trim(Target.Cells(1, 1)), 254), f)[/COLOR], "")
End With
End Sub