Merci de vos réponses.
Voici le code de la macro.
Sub Turf()
Dim ScriptControl As Object, PMU As Object
Dim Ecurie As Object, Cheval As Object, Drd As Object, Gp As Object
Dim Site As String, i As Long
Set ScriptControl = CreateObject("MSScriptControl.ScriptControl")...