Bonjour,
Met sa sur VBA et ça fonctionnera
Option Explicit
Dim i, y As Integer
Sub comp()
y = 2
For i = 2 To ActiveSheet.UsedRange.Rows.Count
If ActiveSheet.Cells(i, 1) = "" Then
Exit Sub
End If
If ActiveSheet.Cells(i, 2) = "yes" Then
ActiveSheet.Cells(y, 7) = ActiveSheet.Cells(i, 1)
y = y + 1
End If
Next i
End Sub