Private Sub Worksheet_Change(ByVal Target As Range)
derligne = Range("J65536").End(xlUp).Row
Sheet3.Range("C25") = ""
For Each cel In Range("C10:C" & derligne)
If Left(cel.Value, 1) = "J" Then
With Sheet3
If .Range("C25") = "" Then .Range("C25") = Range("A" & cel.Row)
If Range("K2") > 1 Then .Range("C25") = .Range("C25") & " / " & Range("A" & cel.Row)
End With
End If
Next
End Sub