Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim valeur As String
If Intersect(Range("F2:F" & Range("F" & Rows.Count).End(3).Row), Target) Is Nothing Then Exit Sub
If Not Intersect(Range("F2:F" & Range("F" & Rows.Count).End(3).Row), Target) Is Nothing And Target.Count = 1 Then 'Exit Sub
valeur = InputBox("Veuillez entrer unz valeur")
If valeur <> "" Then Target = valeur
End If
End Sub