Réponse acceptée !
en furetant j'ai trouver comment executer un lot dts :
Dim oPkg, oStep, sMessage, bStatus
Set oPkg = Server.CreateObject("DTS.Package")
oPkg.LoadFromSQLServer "NomServerSQL","ID (généralement sa","mdp", 0,"","","","nom du DTS a éxécuter"
oPkg.Execute()
bStatus = True
For Each oStep In oPkg.Steps
If oStep.ExecutionResult = 1 Then
sMessage = sMessage & "<p>" & "Step [" & oStep.Name & "] "
sMessage = sMessage & " a terminé<br>"
bStatus = False
End If
Next
If bStatus Then
sMessage = sMessage & "<p>Package [" & oPkg.Name & "] a été éxécuté avec succès</p>"
Else
sMessage = sMessage & "<p>Package [" & oPkg.Name & "] a échoué.</p>"
End If
set oStep = nothing
set oPkg = nothing
Response.Write(smessage)
maintenant il ne me reste (plus) qu'à créer un lot DTS .....

matt