Bonjour, j'ai un problème avec un petit bout de code.

J'ai une colonne contenant environ 5000 entrée. Toutes les 85 entrées, je souhaiterais sélectionner la cellule suivante, à partir de celle-ci étendre la sélection jusqu'en bas, la couper, et la coller une cellule après vers le bas (donc décaler tout le contenu de la colonne d'un cran) et dans la cellule vide créée (dû au décalage de 1) faire une simple moyenne entre la valeur de la cellule avant celle vide et celle juste après.

Je sais, c'est pas le Pérou mais ça fait un moment que j'ai plus la tête au VBA et comme je sais que la syntaxe est particulière, j'ai dû me foirer quelque part.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub addline()
 
    Dim i, s, x As Integer
    Dim z, y As Long
 
    s = 85
    x = 1
 
    Do
        Range("B" & s * x + 1).End(xlDown).Cut Destination:=Range("B" & s * x + 2)
        z = Range("B" & s * x).Value + Range("B" & s * x + 2).Value
        y = z / 2
        Range("B" & s * x + 1).Value = y
        x = x + 1
    Loop While x = 58
 
End Sub
Auriez-vous une suggestion ?