XL 2013 Creations de macro

Bonsoir,
Je viens de trouver.
Cela fonctionne avec le code suivant et il ne me restera qu'a insérer de quoi aller plus loin que l'adresse.
Merci quand même PR.
Sub AjouterUnClientDansLaListe()

NumClient = InputBox("entrez le N°Client", "N°Client")
Dim Colonne As Integer
Colonne = 2
If Cells(1, Colonne) = "" Then
' La cellule 1 est vide
Cells(1, Colonne) = NumClient
Else
Cells(Rows.Count, Colonne).End(xlUp).Offset(1, 0) = NumClient
End If

NomClient = InputBox("entrez le nom du Client", "Nom du Client")
Colonne = 3
If Cells(1, Colonne) = "" Then
' La cellule 1 est vide
Cells(1, Colonne) = NomClient
Else
Cells(Rows.Count, Colonne).End(xlUp).Offset(0, 0) = NomClient
End If

PrenomClient = InputBox("entrez le prénom du Client", "Prénomom du Client")
Colonne = 4
If Cells(1, Colonne) = "" Then
' La cellule 1 est vide
Cells(1, Colonne) = PrenomClient
Else
Cells(Rows.Count, Colonne).End(xlUp).Offset(0, 0) = PrenomClient
End If

AdresseClient = InputBox("entrez l'adresse du Client", "Adresse du Client")
Colonne = 5
If Cells(1, Colonne) = "" Then
' La cellule 1 est vide
Cells(1, Colonne) = AdresseClient
Else
Cells(Rows.Count, Colonne).End(xlUp).Offset(0, 0) = AdresseClient
End If

End Sub