Merci gmb,
C'est exactement ça, c'est même parfait, vous écrivez des codes comme vous écrieriez un livre.
Je venais juste de trouver une solution à votre code en ajoutant une avant dernière ligne.
J'en était presque fier d'avoir pu rallonger votre premier code et je m'apprêtais a vous le faire savoir.
Maintenant je vais m'efforcer de comprendre le code que vous m'avez fourni sur la version "Règles v2.xlsm".
Private Sub Worksheet_Activate()
Set f1 = Sheets("Feuil1")
Range("A1").CurrentRegion.Offset(1, 0).ClearContents
For ln = 9 To f1.Range("C" & Rows.Count).End(xlUp).Row
If f1.Range("J" & ln) > 49 Then
lgn = Range("A" & Rows.Count).End(xlUp)(2).Row
f1.Range("C" & ln & ":K" & ln).Copy Range("A" & lgn)
End If
Next ln
Range("A2:A65000").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub
Merci encore et merci à Klin89, qui m'a proposé une autre solution.
Bonne fin de soirée à vous 2.