Perso, j'aime bien la solution de PapyTurbo, qui permet de "swapper" aussi des variables string...

Pour éviter la "complexité" des longueurs, j'ai adapté sa solution avec SPLIT
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
 
    Dim a As Variant
    Dim b As Variant
 
    a = "Pierre"
    b = "Martine"
    a = a & "|" & b
    b = Split(a, "|")(0)
    a = Split(a, "|")(1)
... A peine du plagiat, pardon Papy ....