Bonjour,

Voici mon code :

Private Sub Workbook_Open()

Dim langue As String

langue = InputBox("Bonjour, veuillez sélectionner une langue (Français/Anglais)") & Chr(13) & " " & Chr(13) & ("Hello, please choose a language (French/English)")
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 ...")
Else
MsgBox ("La langue sélectionnée n'est pas disponible, veuillez sélectionner Français ou Anglais") & Chr(13) & " " & Chr(13) & ("The selected language is not available, please choose French or English")
End If

End Sub

1- Pour la ligne InputBox, la ligne en anglais (en gras) ne s'affiche pas, quelqu'un peut m'expliquer pourquoi?
2- J'aimerais que le programme effectue une boucle (while-wend) si l'utilisateur n'entre rien ou une langue qui n'est pas mentionnée pour qu'il puisse rentrer la langue correcte à nouveau, mais je ne sais pas ou placer ma boucle (je ne voudrais pas tout faire bugger..)

Merci de votre aide!

Configuration: Windows XP Internet Explorer 7.0