MShk = "332793" 'valeur recherchée afin de la dupliquer
Set RiList = ActiveSheet.Columns("A:D") 'premier tableau
retsu = RiList.Columns("A").Find(MShk, LookAt:=xlWhole).Row
Range("A" & retsu & ":D" & retsu).Select
Selection.Copy
Selection.Insert Shift:=xlDown