Sub remplace()
For Each numero In Range([B2], [B2].End(xlDown))
With Sheets("Données")
Set trouve = .Columns(2).Find(numero.Value, LookIn:=xlValues, lookat:=xlWhole)
Range(numero.Offset(0, -1), numero.Offset(0, 12)).Copy .Range(trouve.Offset(0, -1), trouve.Offset(0, 12))
Range(numero.Offset(0, -1), numero.Offset(0, 12)).ClearContents
End With
Next
End Sub