Option Explicit
Sub Programme_Principal()
Dim Num_Ligne As Long
Dim Lig_Ecriture As Long
Lig_Ecriture = 2
Num_Ligne = 2
While Sheets("Feuil1").Cells(Num_Ligne, 1) <> ""
If Sheets("Feuil1").Cells(Num_Ligne, 2) = "Non" Then
Sheets("Feuil2").Cells(Lig_Ecriture, 1) = Sheets("Feuil1").Cells(Num_Ligne, 1)
Sheets("Feuil2").Cells(Lig_Ecriture, 2) = Sheets("Feuil1").Cells(Num_Ligne, 2)
Else
Sheets("Feuil2").Cells(Lig_Ecriture, 1) = ""
End If
Num_Ligne = Num_Ligne + 1
Lig_Ecriture = Lig_Ecriture + 1
Wend
Sheets("Feuil2").Cells(Lig_Ecriture, 2).SpecialCells(xlCellTypeBlanks).Delete (xlShiftUp)
End Sub