Remplacer USF par MsgBox

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    mbox
End Sub

Sub mbox()
    Dim msge, i
    msge = ActiveCell & " : " & Chr(10)
    For i = 4 To 9
        If ActiveCell.Offset(0, i) <> 0 Then msge = msge & ActiveCell.Offset(0, i) & Chr(10)
    Next
    MsgBox (msge)
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim msge
    Cancel = True
    If Not Application.Intersect(Target, Columns(7), UsedRange) Is Nothing Then
        msge = Target.Offset(0, 0).Text & Chr(10) & Chr(10) 'Nom
            msge = msge & Target.Offset(0, 4).Text & Chr(10)
            msge = msge & Target.Offset(0, 5).Text & Chr(10)
            msge = msge & Target.Offset(0, 6).Text & Chr(10)
            msge = msge & Target.Offset(0, 7).Text & Chr(10)
            msge = msge & Target.Offset(0, 8).Text & Chr(10)
            msge = msge & Target.Offset(0, 9).Text & Chr(10)
            msge = msge & Target.Offset(0, 32).Text & Chr(10)
            msge = msge & Target.Offset(0, 33).Text & Chr(10)
            msge = msge & Target.Offset(0, 34).Text & Chr(10)
            msge = msge & Target.Offset(0, 35).Text & Chr(10)
            msge = msge & Target.Offset(0, 36).Text & Chr(10)
            msge = msge & Target.Offset(0, 37).Text & Chr(10)
            msge = msge & Target.Offset(0, 38).Text & Chr(10)
            msge = msge & Target.Offset(0, 39).Text & Chr(10)
            msge = msge & Target.Offset(0, 61).Text & Chr(10)
            msge = msge & Target.Offset(0, 62).Text & Chr(10)
            msge = msge & Target.Offset(0, 63).Text & Chr(10)
            msge = msge & Target.Offset(0, 64).Text & Chr(10)
            msge = msge & Target.Offset(0, 65).Text & Chr(10)
            msge = msge & Target.Offset(0, 66).Text & Chr(10)
        MsgBox (msge)
     End If
End Sub

msge = msge & Target.Offset(0, 4).Text & Chr(9) & Target.Offset(0, 32).Text & Chr(9) & Target.Offset(0, 61).Text & Chr(10)