Hello,
Un petit bout de code à adapter à ton besoins:
Sub AlorsOnCompte()
'
' Chaque valeur non vide trouvée dans la colonne A accueillera en B le nombre de cellules
'vides depuis la dernière cellule non vide
r = Cells(65536, 1).End(xlUp).Row 'recuperation de la derniere cellule non vide de la colonne A
For Each cell In Range(Cells(1, 1), Cells(r, 1))
If cell.Value = "" Then
nbvide = nbvide + 1
Else
cell.Offset(0, 1).Value = nbvide
nbvide = 0
End If
Next cell
End Sub
BR
USERRRQI115
Simple user
Great brain