Sub incrementation()
Dim lettreColonne(150)
Dim lettreColonneBIS(10)
For x = 0 To 150
lettreColonne(x) = Mid(Sheets(1).Cells(1, 27).Offset(0, x).Address, 2, 2)
Next x
For x = 0 To 10
lettreColonneBIS(x) = x
Next x
temp = 0
For x = 0 To 150
For j = 0 To 10
Sheets(1).Cells(temp + j + 1, 1).Value = "A7" & lettreColonne(x) & lettreColonneBIS(j)
Next j
temp = temp + 10
Next x
End Sub