Fonction somme-SUM avec nbre de colonnes variable

Bonjour à tous,
J'ai une petite question en fait j'ai fouiné un peu partout et je n'ai pas trouvé de réponse qui convenait à mon cas, j'en suis sur que c'est un truc simple mais j'ai essayé pls choses et ça ne marche pas.
Mon code est le suivant.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub somme() Worksheets("feuille1").Select Dim k As Integer Dim l As Integer k = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row l = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Column Worksheets("feuille2).Select Worksheets("feuille2").Cells(1, 1).Formula = "=Sum(feuille1!A1:C1)" Range("A1").Select Selection.AutoFill Destination:=Range(Cells(1, 1), Cells(k, 1)), Type:=xlFillDefault Range(Cells(1, 1), Cells(k, 1)).Select End Sub

---

En fait ce que je voudrais c'est non pas avoir C1 mais un truc du genre cells(1,l) de manière à ce que la celulle dépende du l calculé précédemment. Merci par avcance de votre aide.@+:lol:

Bon voici une réponse assez simple et oui je fais les questions et les reponses.lol

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub somme() Dim k As Integer Dim l As Integer Dim rg As Object Dim i As Integer k = Sheets("feuil2").Cells.SpecialCells(xlCellTypeLastCell).Row l = Sheets("feuil2").Cells.SpecialCells(xlCellTypeLastCell).Column For i = 1 To k Set rg = Range(Cells(i, 1), Cells(i, l)) Worksheets("feuil1").Cells(i, 1).Formula = "=SUM(feuil2!" & rg.AddressLocal & " )" Next i end sub

---