XL 2013 Incompréhension sur macro

[débutantplus]

Bonjour à tous et à toutes,
J'ai une macro qui me permet de recopier une ligne d'une feuille à une autre.
Ces lignes se copient au fur et à mesure à la suite d'une précédentes copies.
J'ai plusieurs macro plus ou moins identiques pour réaliser cette tâche.

Le problème est qu'une de ces macros me copie la ligne sur une ancienne ligne déjà copié alors que je voudrais qu'elle se copie à la suite et ce problème n'apparaît que sur une des macros.
Bref incompréhensible pour moi, si quelqu'un a une idée je suis preneur.
Merci pour votre aide
je mets le fichier en pièce jointe

Sub enreg_broyage()
Dim lig As Long, i As Integer
With Sheets("Suivi broyage")
lig = .Range("A" & Rows.Count).End(xlUp).Row + 1
For i = 2 To 9
.Cells(lig, i).Value = Cells(5, i).Value
Next
.Range("J" & lig).Value = Range("C8").Value
.Range("K" & lig).Value = Range("D8").Value
.Range("L" & lig).Value = Range("E8").Value
.Range("M" & lig).Value = Range("F8").Value
.Range("N" & lig).Value = Range("G8").Value
.Range("O" & lig).Value = Range("H8").Value
.Range("P" & lig).Value = Range("I8").Value
End With
Range("C5:F5").ClearContents
Range("H5:I5").ClearContents
Range("D8:G8").ClearContents
Range("I8").ClearContents
End Sub

 

[Bernard_XLD]

Bonjour débutantplus, le forum

quand vous faites

lig = .Range("A" & Rows.Count).End(xlUp).Row + 1

le programme va chercher la ligne de la cellule après la dernière cellule remplie dans la colonne A comme indiqué, si vos données sont en colonne B, cela ne peut pas fonctionner.

Bien cordialement, @+

 

[débutantplus]

Bonjour Bernard,
Merci pour votre réponse,
Pour corriger ce problème je n'ai qu'à faire ?

lig = .Range("B" & Rows.Count).End(xlUp).Row + 1

Cordialement

 

[débutantplus]

Bonjour Bernard,
Merci pour votre réponse,
Pour corriger ce problème je n'ai qu'à faire ?

Cordialement

Question inutile ça marche
Merci beaucoup