Erreur d'exécution programme

Bonjour,

Mon programme ne s'exécute pas comme il faut, je souhaite que l'utilisateur entre une langue, soit Français, français, french, French ou English, english, Anglais, anglais ; Si l'utilisateur n'entre rien ou une langue différente, il doit avoir un message d'erreur et doit pouvoir recommencer (d'où la boucle While/Wend). Le problème dans mon code c'est que dès que j'entre autre chose que les langue mentionnée, j'ai une "incompatibilité de type 13".
Quelqu'un peut m'aider? Merci.

Private Sub Workbook_Open()

Dim langue As String
Dim langue1 As String
Dim langue2 As String
Dim langue3 As String
Dim langue4 As String
Dim langue5 As String
Dim langue6 As String
Dim langue7 As String
Dim langue8 As String

langue1 = "Français"
langue2 = "Anglais"
langue3 = "French"
langue4 = "English"
langue5 = "français"
langue6 = "anglais"
langue7 = "french"
langue8 = "english"

langue = InputBox("Bonjour, veuillez sélectionner une langue (Français/Anglais)")
If langue = "Français" Or langue = "français" Or langue = "French" Or langue = "french" Then
MsgBox ("Bienvenue dans le ..." & Chr(13) & " " & Chr(13) & "Vous pouvez sélectionner ...")
ElseIf langue = "English" Or langue = "english" Or langue = "Anglais" Or langue = "anglais" Then
MsgBox ("Welcome to the ..." & Chr(13) & " " & Chr(13) & "You can choose ...")
End If
While (langue <> langue1) & (langue <> langue2) & (langue <> langue3) & (langue <> langue4) & (langue <> langue5) & (langue <> langue6) & (langue <> langue7) & (langue <> langue8)
langue = InputBox("La langue sélectionnée n'est pas disponible, veuillez sélectionner Français ou Anglais") & ("The selected language is not available, please choose French or English")
Wend

End Sub