Sub puissance_corrige()
Dim formule As String
colonnepuissancevide = 3
coco = 2
k = 2
r = 2
Sheets("data").Select
Do While Sheets("Pvide").Cells(r, colonnepuissancevide) <> ""
i = 3
Do While Sheets("data").Cells(i, coco) <> ""
formule = "=" & Sheets("data").Cells(i, coco).Value & " - Pvide!C" & k & ""
Sheets("data").Cells(i, coco).Value = formule
i = i + 1
Loop
k = k + 1
r = r + 1
coco = coco + 1
Loop
Sheets("data").Select
End Sub