Boucle tant q'aucune cellule n'est sélectionnée

Sub essai()
    On Error GoTo Pas_Cell
    If Selection.Address <> "" Then MsgBox "La cellule " & Selection.Address & " est sélectionnée"
    On Error GoTo 0
Pas_Cell:
    If Err.Number <> 0 Then
        MsgBox "Aucune de cellule sélectionnée"
    End If
End Sub

Sub test()
Dim Cel As Range

Set Cel = Application.InputBox("Sélectionnnez une seule cellule", _
          "sélection obligatoire", , , , , , 8)
MsgBox "cellule sélectionnée : " & Cel.Address(0, 0)

End Sub

While 'La condition

'Insère le code à faire tant que la condition n'est pas remplie

Wend