Bonjour
C'est effectivement un bel exercice
Il faut d'une part déclencher une action lorsque un match se termine : Pour cela, on affecte la macro lorsque certaines cellules sont changées
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("D4, D7, D10,D13,D16,D19,D22,D25")) Is Nothing Then
D'autre part déterminer l'endroit où mettre les valeurs
j = [J65000].End(xlUp).Row + 1 ' num ligne match perdu
If j = 2 Or j = 5 Or j = 8 Or j = 11 Then
j = j + 1
End If
Ensuite il n'y a plus qu'à copier les valeurs
Cordialement
PS J'ai débuté sur excel il y a 3 ans (à plus de 45 ans) et à l'aide du forum j'ai appris beaucoup