Sub Macro1()
Dim dl As Integer 'déclare la variable dl (Dernière Ligne)
Dim pl As Range 'déclare la variable pl (PLage)
Dim dest As Range 'déclare la variable dest (celllule de DESTination)
Range("F5").CurrentRegion.Clear 'supprime les anciennes données
Range("C5").Copy Range("F5") 'place "Nombre" en F5
dl = Cells(Application.Rows.Count, 2).End(xlUp).Row 'définit la dernière ligne éditée de la colonne 2 (=B)
Set pl = Range("B6:B" & dl) 'définit la plage pl
For Each cel In pl 'boucle sur toutes les cellules cel de la plage pl
If cel.Offset(0, 1).Value <> "" Then 'condition : si la cellule en colonne C n'est pas vide
'définit la cellule de destination (E6 si E6 est vide, sinon la première ligne vide de la colonne 5 (=E)
Set dest = IIf(Range("E6").Value = "", Range("E6"), Cells(Application.Rows.Count, 5).End(xlUp).Offset(1, 0))
cel.Resize(1, 2).Copy dest 'copy les deux cellules et les colle dans dest
End If 'fin de la condition
Next cel 'prochaine cellule de la boucle
End Sub