Derniere ligne rempli

Bonjour,

svp je veux calculer la somme d'une sélection "B4 : jusqu'à dernière colonne b" en prenant en compte la dernière ligne de A soit remplie.

mais le problème c'est que de A1:B3 c'est vide alors que la 5eme ligne de code ne le prend pas en considération.

Dois je changer quoi sur le code ?

et merci d'avance

Sub somme()
Dim dl            As Integer
Dim variable    As Range
Dim somme        As Double

dl = Range("A" & Rows.Count).End(xlUp).Row 

somme = Application.Sum(variable)

Next

End Sub

Bonjour.

Si j'ai bien compris tu veux la somme de la colonne "B" qui commence en B4 jusque la dernière cellule non vide.

Pour une somme de colonne pourquoi détecter la dernière cellule ? indiques une plage plus grande si elles sont vides ton total ne changera pas.

valeur = WorksheetFunction.Sum(Feuil1.Range("B4:B9999")