Effacer dans le désordre

Bonjour,

Ce code permet de supprimer les points de B19 à B10
n = Application.CountA([B10:B19])
Range("B10:B19")(n, 1).ClearContents
En appuyant sur le bouton (-1)




Comment faire pour enlever les points dans l'ordre suivant ?

B16,B17,B11,B18,B10,B19

J'ai essayé les ;-,-(): ....etc
n = Application.CountA([B16,B17,B11,B18,B10,B19])
Range("B16", "B17", "B11", "B18", "B10", "B19")(n, 1).ClearContents

Et bien d'autres choses
Mais je n'ai pas trouvé
Marci de votre aide
Cordialement
Giuy