Vba créer tableau

Bonjour

En utilisant offset(nb_lignes,nb_colonnes)

Exemple en partant de "AP1"

Dim celdeb As Range
Set celdeb = Range("AP1")
celdeb.Offset(0, 1).Value = "total"
celdeb.Offset(0, 2).Value = "achat"
celdeb.Offset(0, 3).Value = "vente"
celdeb.Offset(0, 4).Value = "bonus"
celdeb.offset(1,1).Value = "...."

Cdlmnt

Bonjour

1. cette instruction n'a pas à y être

Selection.End(xlDown).Select

2. Pour le reste, ceci répond à la question posée

Sub testmacro()
Dim celtab As Range
Set celtab = Range("AP1")
celtab.Offset(0, 1).Value = "Total"
celtab.Offset(0, 2).Value = "Achat"
celtab.Offset(0, 3).Value = "Vente"
celtab.Offset(0, 4).Value = "Bonus"
celtab.Offset(1, 1).Value = Application.WorksheetFunction.Sum(Columns(10))
End Sub

https://www.cjoint.com/c/LHEnmCuTkOB

Ctrl+k pour lancer la macro

Cdlmnt

Merci beaucoup pour la réponse rapide je vais l'essayer et revenir

Je ne sais pas ce que j'ai manqué il ne bouge pas voici j'ai copié collé ce que j'avais mis, il me donne erreur dans la 4e ligne dont le titre total. 

Aussi, sur cette ligne comment mettre la valeur de la somme de la colonne 10, est ce que ceci pourra fonctionner "=SUM(C[10])"

Sub testmacro()
Dim celtab As Range
Set celtab = Range("AP1")

Selection.End(xlDown).Select
Celtab.Offset(0, 1).Value = "Total"
Celtab.Offset(0, 2).Value = "Achat"
Celtab.Offset(0, 3).Value = "Vente"
Celtab.Offset(0, 4).Value = "Bonus"
Celtab.Offset(1, 1).Value = ""
End Sub

Merci beaucoup ça fonctionne