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