Bonjour à tous,

Je suis actuellement sur une Macro pour trier un tableau de comptabilité et je pioche devant un problème que je ne comprends pas...

Voici mon code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Test()
 
       formula1
 
End Sub
 
Private Sub formula1()
Dim DLig As Long
' Récupérer la dernière ligne du tableau
DLig = Range("B" & Rows.Count).End(xlUp).Row
' Faire soustraction dela colonne C et D jusqu'à la fin du tableau.
Range("M13:M13" & DLig).Formula = "=C13-D13"
End Sub
La dedans, [DLig] contient bien mes 138 lignes mais une fois exécuté, je me retrouve avec 13098 ligne.
Alors que je n'ai aucune entrée plus bas.
Quand je fais pas-à-pas l'exécution de la Macro, j'ai bien "138" lignes dans DLig.
À n'y rien comprendre.

Merci pour votre aide.

Mr.Anime