x = 1
y = 1
For Each objEvent In colEvents
'Nom du serveur
Cells(y, x) = objEvent.ComputerName
Cells(y + 1, x) = objEvent.SourceName
'Type d'alerte (Avertissement ou Erreur)
Cells(y + 2, x + 2) = objEvent.Type
'Code d'événement
Cells(y + 3, x) = objEvent.EventCode
'Moment de l'inscription
Cells(y + 4, x) = objEvent.TimeWritten
'No de l'enregistrement
Cells(y + 5, x) = objEvent.RecordNumber
'Utilisateur
Cells(y + 6, x) = objEvent.User
'Message d'erreur
Cells(y + 7, x) = objEvent.Message
x = x + 1
Next