Fonction union(range1, range2) marche pas ...

[Guilmo]

J'essaye de choper 2 plages et les activer ...
Avec la souris c'est tout con mais en vba c'est une autre histoire ...

Voici un premier code qui marche pas au moment du select, Dieu seul sait pkoi :

With ActiveCell
Union(Calculs.Range(thecell.Offset(rowDeb, indexage - 1), thecell.Offset(rowFin, indexage - 1)), Calculs.Range(thecell.Offset(rowDeb, indexsal - 1), thecell.Offset(rowFin, indexsal - 1))).Select
End With

et un deuxième qui marche pas au moment du activate ...

Set sel = Application.Union(Calculs.Range(thecell.Offset(rowDeb, indexage - 1), thecell.Offset(rowFin, indexage - 1)), Calculs.Range(thecell.Offset(rowDeb, indexsal - 1), thecell.Offset(rowFin, indexsal - 1)))
sel.Activate