bonjour, je ne suis pas du-tout dans le domaine de la programmation je cherche juste a adapter un macro pour mettre des sous totaux automatique dans mon tableau le code fonctionne mais d'un coup elle se met a me faire un message d'erreur sur "ligne =..."

voici le code que j'utilise avec un bouton clik()

ActiveWorkbook.Sheets("Devis").Activate

Dim derligne As Long, ligne As Long

derligne = [Tab_Devis].Columns(15).Find("*", , , , xlByColumns, xlPrevious).Row + 1

X = 13

Do While ligne < derligne

ligne = [Tab_Devis].Columns(15).Find("", , , , xlByColumns, xlNext).Row   (ligne qui produit l'erreur)

Range("P" & ligne) = Application.WorksheetFunction.Sum(Range("P" & X & ":" & "P" & ligne - 1))

Range("B" & ligne) = "Total"

X = ligne + 1

Loop

si vous pouviez me dire ce qui ne va pas sa m'aiderais beaucoup,

pour info j'utilise un tableau objet plage ("B13:P")

merci