Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i
i = Columns(2).ColumnWidth 'largeur de la colonne B
If i > 0 Then MsgBox "La largeur de la colonne B a été modifiée !", vbOKOnly
'Columns(2).ColumnWidth = 0 'Pour éventuellement remasquer la colonne B
End Sub