Inverser plages sur sélection cellules

Bonsoir toutes et tous ! :)
J'aimerais pouvoir inverser deux plages en sélectionnant deux cellules (permettant d'identifier les plages mais n'en faisant pas partie), sauf que ces plages font parti d'un tableau entier (voir fichier)
L'idée est de pouvoir inverser deux enfants en sélectionnant le numéro du premier enfant (de 1 à 8) d'un tableau (de 1 à 8) PUIS faire l'inversion à la deuxième sélection (du deuxième enfant).
Peut-être y a-t-il plus simple, plus pratique, plus efficace ou moins contraignant ?

Je suis parvenu à inverser deux cellules. Mais autant dire que là je suis loin du résultat voulu.
S'il fallait partir sur cette macro, je n'ai même pas réussi à inverser deux plages bien définies lol

Sub inverser_enfants()
Dim temporaire As String
 temporaire = Range("B6").Value
 Range("B6").Value = Range("J6").Value
 Range("J6").Value = temporaire
 End Sub

Ça fonctionne, mais bon, je suis loin ^^

Sub inverser_enfants()
Dim temporaire As String
 temporaire = Range("B6:G6").Value
 Range("B6:G6").Value = Range("J6:O6").Value
 Range("J6:O6").Value = temporaire
 End Sub

Ne fonctionne pas :/

Une fois de plus, merci beaucoup pour votre aide :)

Le tableau extrait : https://www.cjoint.com/c/HIetHpFnYBe
Le fichier final dans la feuille "Tableau baignade" : https://www.cjoint.com/c/HIetQNPnege