Répétition de macro

Bonjour,

J'ai besoin de votre aide. Même s'il s'agit d'une macro dans Outlook. Celle-ci déplace actuellement un message à l'ouverture d'Outlook, puis s'arrête. J'aimerais qu'elle déplace plusieurs messages répondant au critère de déplacement. Il s'agit donc de la faire se répéter plusieurs fois. Mon essai ci-dessous de placer For To, ne fonctionne pas (mal placé?). Je vous la soumets:

Sub DéplacerLeMessage()
On Error Resume Next
Dim i As Integer
Dim objFolder As Outlook.MAPIFolder, objInbox As Outlook.MAPIFolder
Dim objNS As Outlook.NameSpace, objItem As Outlook.MailItem
Set objNS = Application.GetNamespace("MAPI")
Set objInbox = objNS.GetDefaultFolder(olFolderInbox)
Set objFolder = objInbox.Folders("Temp")
For i = 1 To 4
For Each objItem In Application.ActiveExplorer.Selection
If objFolder.DefaultItemType = olMailItem Then
If objItem.Subject = "Commande" Then
objItem.Move objFolder
End If
End If
Next
Next i
Set objItem = Nothing
Set objFolder = Nothing
Set objInbox = Nothing
Set objNS = Nothing
End Sub

Merci. A+