Bonjour à tous, je recherche comment trouver les numéros de lignes correspondant aux cellules non vides dans une cellules pour ensuite additionner des nombres compris entre ces numéros de lignes (nombre dans une autre colonne).

La Macro suivante ne fonctionne pas:

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 Test10()
 
Dim a As Long, b As Long
Dim c As Range
 
a = Columns("A:A").Find(what:="<>""").Row          
 
b = Columns("A:A").Find(After:=a, what:="<>""").Row        
 
Set c = Range(Cells(3, 2), Cells(a - 1, 2))
 
    If Range("C3").Row <> a Then
    Range("B" & a).Formula = "=SUM(" & c.AddressLocal & " )"
    Else: Range("B" & a).Value = "0"
    End If
 
End Sub
Quelqu'un peut-il me venir en aide? Merci d'avance. John81