Bonjour Dan,
Je te remercie pour ta macro, c'est top ...
-->J'ai modifié un truc :
Sheets("upload").Range("L" & dlg + 1) = 40
Sheets("upload").Range("L" & dlg + 1) = 22126200
en
Sheets("upload").Range("L" & dlg + 1) = 40
Sheets("upload").Range("M" & dlg + 1) = 22126200
-->Par contre j'ai un petit souci, la dernière ligne 22126200 doit faire le total des V*** uniquement.
Là elle fait le total depuis N6, donc des 1*** + de la ligne total 22126200 + les suivantes.
cela se situe à ce niveau mais je ne sais pas comment l'écrire :
If i = .Range("A" & .Rows.Count).End(xlUp).Row - 1 Then
Sheets("upload").Range("A" & dlg - 1 & ":K" & dlg - 1).Copy Sheets("upload").Range("A" & dlg + 1)
Sheets("upload").Range("L" & dlg + 1) = 40
Sheets("upload").Range("M" & dlg + 1) = 22126200
Sheets("upload").Range("N" & dlg + 1) = WorksheetFunction.Sum(Sheets("upload").Range("N6:N" & dlg))
Sheets("upload").Range("A" & dlg + 1 & ":N" & dlg + 1).Interior.ColorIndex = 6
End If
Serais tu le faire?
En tout cas je ne m'en serais pas sorti avec toutes ses conditions, car mes connaissances sont au stade "bébé"
Je vais la compléter afin qu'elle créer l'onglet avec les entêtes.
en attendant merci beaucoup...
@ +