Sheets("COMMANDES").Range("I3").Copy
[COLOR=blue]Sheets("SAUVEGARDE").Activate[/COLOR]
Sheets("SAUVEGARDE").Range("A65536").End(xlUp).Offset(1, 0)[COLOR=blue].Select[/COLOR]
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False