Bonsoir Jean-Paul
A placer dans ta feuille
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("Clients")) Is Nothing Then
Recopie Target
End If
Cancel = True
End Sub
Private Sub Recopie(Target As Range)
Range("H6") = Target
End Sub
Un grand merci à Yannick01 qui a fait tout le boulot !
@+
GD