Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$H$4" Then Exit Sub
If Target.Count > 1 Then Exit Sub
[G7:G50].ClearContents
If Target = "" Then Exit Sub
Set trouve = [C:C].Find(what:=Target, LookIn:=xlValues, lookat:=xlWhole)
If Not trouve Is Nothing Then
premAdresse = trouve.Address
Do
lig = lig + 1
[G6].Offset(lig, 0) = trouve.Offset(0, 1)
Set trouve = [C:C].FindNext(trouve)
Loop While Not trouve Is Nothing And trouve.Address <> premAdresse
End If
End Sub