VBA Validation Remplissage automatique Formulaire WEB

Bonjour, je parviens bien à compléter les champs d'un formulaire web mais quand je clique pour valider il m'indique que les champs ne sont pas complétés.

Voici mon code :

Sub InscripApple()

Dim URL$
Dim IE As InternetExplorer
Dim HTMLdoc As HTMLDocument
Dim Ch As IHTMLElementCollection

URL = "Ce lien n'existe plus"

Set IE = New InternetExplorer
With IE
.Navigate URL
.Visible = True
Do Until .readyState = 4
DoEvents
Loop
Set HTMLdoc = .document
End With

Set Ch = HTMLdoc.getElementsByTagName("input")
Ch(3).Value = "Prénom"
Ch(4).Value = "Nom"

End Sub

Merci à vous