Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row > 15 Or Target.Row < 3 Then Exit Sub
Select Case Target.Column
Case 2
Target.Value = "coucou"
Case 5
Target.Value = "mon ami"
Case 7
Target.Value = "voilà"
Case Else
Exit Sub
End Select
End Sub