Effacer les données de la plus petite à la plus grande

Bonjour ,

Je débute avec VBA et je bloque au niveau d'un exercice. Je dois faire une macro qui permet d'effacer les données les unes après les autres, de la plus petite à la plus grande d'une plage de cellules sélectionné. Donc je trouve des difficultés au niveau de ma boucle for car je ne sais pas comment l'exprimer (j'hésite à faire intervenir deux boucles une pour parcourir la plage de cellule et une autre pour donner la direction pour effacer les cellules)

Cordialement,

j'ai un début de solutions mais je ne vois pas où est mon erreur:

Sub Wait()

dim i as integer

dim c as range

Worksheets("exercice2").range("B5:P19").Select

For i=valuemin to i=valuemax

For each cell(i) in selection

If valuemin = 0 Then Value.Clear

' Attendre 1 seconde

Application.Wait Time + TimeSerial(0, 0, 1)

' Continuer après la pause

Else if valuemin = valuemin + 1 Then Value.Clear

end if

Next cell

Next i

End Sub

en fait ça ne fonctionne pas car il y'a toujours un message concernant le débogage donc je ne vois pas où je me suis trompé..