Dim Rng Comme RangeFullrange Dim Comme Range
Si Selection.Cells.Count> 1 Ensuite,
Pour chaque Rng Dans Selection.Cells
Si Rng.Address lt;> Puis ActiveCell.Address
Si Fullrange est rien alors
Réglez full range = Rng
Autre
Réglez full range = Application.Union (full range, RNG)
Fin si
Fin si
Rng Suivant
Si FullRange.Cells.Count> 0 Then
FullRange.Select
Fin si
Fin si