Re,
ta boucle est bonne puisque tu passes de 1 à 1,1 à 1,2, sauf quand tu incrémentes swapavarpar de 0.1 quand différent de contre alors la tu passes de 1,2 à 1,4
Je te conseille d'utiliser le déboggeur VBA en utilisant
debug.print sig ' par exemple pour afficher la valeur de sig dans la fenêtre d'execution (Ctrl G pour l'afficher)
pour récupérer le sig dans les cellules mais différentes, tu initialises i à 1
I=1
Range("A" & I)=sig
i=i+1
A+++
PS je ne comprends toujours pas ce que tu veux faire .....