Sub Filtre_inscrits()
Dim Lig As Long
Dim Col As String
Dim NbrLig As Long
Dim NumLig As Long
Sheets("liste_inscrits").Activate ' feuille de destination
Col = "I" ' colonne de la donnée non vide à tester
NumLig = 0
With Sheets("data_step1") ' feuille source
NbrLig = .Cells(65536, Col).End(xlUp).Row
For Lig = 1 To NbrLig
If .Cells(Lig, Col).Value <> "" Then
.Cells(Lig, Col).EntireRow.Copy
Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).PasteSpecial (xlPasteValues)
End If
Next
End With
End Sub