Range("C1").Select
ActiveCell.FormulaR1C1 = "0"
Range("C1:C2").Select Cet intervalle est défini de 0 a la valeur en AI
Selection.FillDown
Selection.Copy
Range("C3").Select Valeur définie par la valeur en AI+1
ActiveSheet.Paste
Selection.Replace What:="0", Replacement:="1", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("C5").SelectValeur définie par la valeur en AI+2
ActiveSheet.Paste
Selection.Replace What:="0", Replacement:="2", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("C1:C6").SelectIntervalle définit par l'ensemble des solutions
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("C1:C352800"Valeur en AJ8), Type:=xlFillCopy
ActiveWindow.ScrollRow = 1