Melanger les nombres dans les cellules

Bonjour

Avec ce code j'aimerais mélanger les nombres qui se trouvent dans les cellules de A1 à B10

Si je ne met que A1 cela fonctionne

Merci pour votre aide

Sub es()

[a1] , [b10] = StrReverse([a1], [b10])

End Sub

Bonjour,

Comme ceci:

Sub es()
    Application.ScreenUpdating = False
    chaine = ","
    For i = 1 To 10
        If Len(Cells(i, "A")) > 1 Then
            'si il y a plus d'un caractère,il faut faire une première inversion pour les retrouver dans le bon ordre à la sortie
            chaine = chaine & StrReverse(Cells(i, "A")) & ","
        Else
            chaine = chaine & Cells(i, "A") & ","
        End If
    Next
    chaine = StrReverse(chaine)  'on reconstruit la chaîne inversée
    'on isole chaque élément de la chaîne
    Element = Split(chaine, ",")
    For i = 1 To UBound(Element) - 1
        Cells(i, "A") = Element(i)
    Next
End Sub

Cdlt