Dim LambdaMIN As Long, LambdaMAX As Long, Lambda As Long
LambdaMIN = 68
LambdaMAX = 71
LambdaPAS = 1
For Lambda = LambdaMIN To LambdaMAX Step LambdaPAS
ActiveSheet.Range(AddressTraitement).Offset(0, 11 + ((Lambda - LambdaMIN) / LambdaPAS)).Value = Lambda / 10
Next Lambda