Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Select Case Target.Column
Case 7
Target = "ta valeur1"
Target.Offset(3, 0).Select
Case 8
Target = "ta valeur2"
Target.Offset(1, 0).Select
Case 9
Target = "ta valeur3"
Target.Offset(2, 0).Select
End Select
End Sub