Option Explicit
Private Sub Worksheet_Change(ByVal c As Range)
On Error GoTo fin
If c.Address = "$H$9" Then
[h11].CurrentRegion = ""
Columns(3).Find(what:=[h9], lookat:=xlWhole).CurrentRegion.Copy Destination:=[h11]
[h9].Select
End If
Exit Sub
fin:
MsgBox "Valeur inexistante.": [h9].Select
End Sub