IE plein ecran

Salut tous!!! Voila j'ai un bouton sur ma feuille qui lance Internet Explorer selon le code suivant :

Sub google()
Dim IE As Object
Set IE = CreateObject('InternetExplorer.Application')

With IE
.Visible = True
.Navigate '
End With

Set IE = Nothing
End Sub

Mais voila, la page web qui s'ouvre est toute petite... Y a t il un moyen d'inclure dans la macro le fait d'ouvrir IE en plein ecran???

Merci