Private Sub Worksheet_Change(ByVal T As Range)
Dim Tb: Tb = Range("D5:R5").Value
If Not Intersect(T, Me.Range("D:R")) Is Nothing Then
If Application.CountA(Range(Cells(T.Row, "A"), Cells(T.Row, "R"))) = 15 Then
Sheets("Feuil2").Cells(Rows.Count, "A").End(3)(2).Resize(, UBound(Tb, 2)).Value = Tb
Erase Tb: Range("D5:R5") = ""
End If
End If
End Sub