Sub Bouton1_QuandClic()
Dim toto As Object
Dim enviro, item
On Error Resume Next
ligne = 1
Set toto = CreateObject('WScript.Shell')
Set enviro = toto.environment('process')
For Each item In enviro
Cells(ligne, 1) = item
ligne = ligne + 1
Next item
MsgBox Environ('OS') 'pour exemple
End Sub