Sub AjoutDonnées()
Dim DLigS As Long, Lig As Long, NLig As Long
' Récupérer la dernière ligne remplie du tableau de la feuille accueil
DLigS = Sheets("accueil").Range("B" & Rows.Count).End(xlUp).Row
' Vérifier ques des lignes ont bien été saisies, sinon on sort
If DLigS <= 30 Then Exit Sub
' Avec la feuille active
With ActiveSheet
' Pour chaque ligne remplie de la feuille accueil
For Lig = 31 To DLigS
' Récupérer la prochaine ligne vide de la feuille
NLig = .Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row
' A défaut, inscrire la date du jour
.Range("A" & NLig) = Format(Now(), "mm/dd/yyyy")
' Inscrire les données
.Range("B" & NLig) = Sheets("accueil").Range("B" & Lig)
' Si la colonne H de la page d'accueil contient une valeur
If Sheets("accueil").Range("H" & Lig) <> 0 Then
' On l'inscrit dans les débits de la feuille active
.Range("E" & NLig).Value = CDec(Sheets("accueil").Range("H" & Lig))
ElseIf Sheets("accueil").Range("I" & Lig) <> 0 Then
.Range("F" & NLig).Value = CDec(Sheets("accueil").Range("I" & Lig))
End If
Next Lig
End With
End Sub