Validation de données dans cellule sélectionnée

Bonsoir chers tous..

j'ai une plage B4:B21 qui est la somme de E4:E21 et F4:F21

Je voudrais un code VBA qui permettra d'afficher les valeurs additionnées lorsque une cellule de B4:B21 est sélectionnée.

Le fichier joint en illustration.

Merci

Hello,

Une proposition

Sub messageinfo()
    Dim ws As Worksheet
    Dim cell As Range

    ' Définir la feuille de calcul
    Set ws = ThisWorkbook.Sheets("Feuil1") ' nom de ta feuille

    For Each cell In ws.Range("B4:B21")    
        With cell.Validation
            .Delete
            .Add Type:=xlValidateInputOnly
            .InputTitle = "Information de Somme"
            .InputMessage = "Yann " & Cells(cell.Row, 5) & " + " & "zess " & Cells(cell.Row, 6)
        End With
    Next cell
End Sub

@+

super Merci !!!