Dim dblRetour As Double dblRetour = Shell("c:\command.com", vbNormalFocus) Clipboard.Clear Clipboard.SetText "dir" & vbCr SendKeys "% EP", True 'En anglais, pour Win Fr, probablement "% EC" qui veux dir Alt-Espace suivit de Editer et Coller