Salut, en utilisant les colonnes que tu nous a montrées :
Sub listeCourses()
Dim Ws_course As Worksheet
Set Ws_course = ActiveSheet
derligCourse = Ws_course.Range("B" & Rows.Count).End(xlUp).Row
Dim tabCourse() As Variant
tabCourse = Ws_course.Range("B2", "E" & derligCourse).Value
For i = LBound(tabCourse, 1) To UBound(tabCourse, 1)
If (tabCourse(i, UBound(tabCourse, 2)) = 0) Or (tabCourse(i, UBound(tabCourse, 2)) = 0 = "") Then
derligListe = Ws_course.Range("G" & Rows.Count).End(xlUp).Row
Ws_course.Range("G" & derligListe + 1).Value = tabCourse(i, 2)
End If
Next i
End Sub
Bibu