Dim Message As String
LigneM = (Range("B65000").End(xlUp).Row + 1)
ici:
Message = InputBox("Saisie du numéro de RAR :", "Envoi recommandé")
Select Case Len(Message)
Case 0
Exit Sub
Case Is <> 13
MsgBox "Merci de saisir un numéro valide (13 car.)"
GoTo ici
Case Else
Range("XAA" & LigneM) = Message
End Select
Emetteur.SetFocus