Bonsoir Jouxte
Essaie ceci :
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Solde, Lig, Col, Nom
If Not Intersect(Target, Range("B2:B65356")) Is Nothing Then
Nom = Target.Value
Lig = Target.Row
Col = Range("IV1").End(xlToLeft).Column
Solde = Format(Cells(Lig, Col), "0.00")
ActiveSheet.UsedRange.ClearComments
If Target.Value <> "" Then
Target.AddComment.Text Text:="Solde de " & Nom & " :" & Chr(10) & Solde & " €"
Target.Comment.Shape.TextFrame.AutoSize = True
End If
End If
End Sub
@+