Compter nombre cellules non vide

Bonjour,

j'essaie de compter les lignes non vides dans la colonne A sachant qu'il y a parfois des cellules vides intercalées entre les cellules de données

voici le code sur lequel je me suis basé mais le problème est que dès qu'il rencontre une cellule vide il arrête de compter.

moi je voudrais qu'il me scanne toute la colonne A pour ensuite me définir le nombre exacte de cellule rempli de données.

j'ai pensé a un code du genre :

Sub calculnbcellule()

Dim oper As Single
Dim Plage As Range
Dim a As Range
Dim cel As Range

 Set Plage = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp))

 Set cel = Plage.Value

I = 1

      oper = 0

      If Not cel(I, 1) Is Nothing Then
              oper = oper + 1
              I = I + 1

      End If

      Cells(11, 5) = oper

End Sub

mais bon c'est sans succès

Merci beaucoup

c'est bon j'ai trouvé merci

Bonjour

Simplement en utilisant CountA ( NBVAL() - voir l'aide)

Sub calculnbcellule()
Dim oper As Single
Dim Plage As Range

  Set Plage = Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp))
  oper = Application.CountA(Plage)
End Sub