Sub LignesVide()
Dim DernièreLigne As Long
Dim NbLigneVide As Long
DernièreLigne = [A65536].End(xlUp).Row
For i = 2 To DernièreLigne
If Range("V" & i) <> "" Then
If Range("V" & i - 1) <> "" Then
Range("AK" & i) = ""
Else
NbLigneVide = i - Range("V" & i).End(xlUp).Row - 1
Range("AK" & i) = NbLigneVide
=====> Range("AI" & i) = (Range("W" & i) / Range("AK" & i)) * 0.01 <=====
End If
End If
Next i
End Sub