Sub Macro1()
Dim a 'déclare la variable a
a = InputBox('Entrez la valeur') 'définit la varaible a (InputBox)
If Sheets('listing').Range('A5').Value = '' Then 'si A5 est vide
Sheets('listing').Range('A5').Value = a 'A5=a
Else 'sinon
Sheets('listing').Range('A65536').End(xlUp).Offset(1, 0).Value = a 'la première ligne vide sous A5=a
End If 'fin de la condition
End Sub