Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' Affichage du résumé.
' If Target.Column = 3 And Target.Row = 10 Then
' MsgBox ActiveCell.Offset(0, 5), , "Résumé."
'End If
If Target.Column = 3 And Target.Row > 9 And Target.Row < 1000 Then
If Target = "" Then
Exit Sub
Else
Range("P8") = ""
Range("C4") = ActiveCell.Offset(0, 0)
MsgBox ActiveCell.Offset(0, 6), , ActiveCell.Offset(0, 0) ' "Synopsis."
FrmResume.Show
FrmResume.T1.value = range.ActiveCell.Offset(0, 6), , ActiveCell.Offset(0, 0)
End If
End If
End Sub