Bonjour à tous.

voilà je voudrais mettre les deux lettre quelle quel soit en majuscules si joint le MSG

Private Sub Worksheet_Change(ByVal Target As Range)

Dim CelluleVise As Range
Dim Reponse As Variant
Dim Question As String
Dim Titre As String

Set CelluleVise = Application.Intersect(Target, Range("B7:B51"))

If CelluleVise Is Nothing Then
'MsgBox "La cellule n'est pas dans l'intersection"
DoEvents
Else
'MsgBox "La cellule est dans l'intersection"
DoEvents
If (ActiveCell.FormulaR1C1 = "Chèque") Then
Question = "Entrer un numéro de chèque s.v.p."
Titre = "Saisie du numéro de chèque"
Reponse = InputBox(Question, Titre, ("1000000 AB")
ActiveCell.Offset(0, 1).Value = Reponse
End If
End If

("1000000 AB ")
les lettres soulignés peuvent etre toutes lettres de l'aphabétique

je vous remerci par avance.
A+