voici quelques lignes de code
qui execute la demande
la feuille 'A' doit être active
Dim ligA, ligC, colC As Integer
ligA = 2
ligC = 1
While Not IsEmpty(Cells(ligA, 1))
If Not IsEmpty(Cells(ligA, 2)) Then
Sheets('C').Cells(ligC, 2).Value = Cells(ligA, 1).Value...