Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("B2:C9")) Is Nothing Then
x = Range("B" & Target.Row)
Set c = Columns("I").Find(x, LookIn:=xlValues, lookat:=xlPart)
If Not c Is Nothing Then
Range("H3:M13").ClearContents
c.CurrentRegion.Copy Destination:=Range("H3")
Else
MsgBox ("tableau à creer")
End If
End If
End Sub