Macro Extraction + Formule

Bonjour,

Je dois effectuer une macro permettant d'extraire les données d'une feuille pour les intégrer dans une autre feuille au sein d'un tableau.
Dans ce tableau, il y a une répartition entre différentes colonnes.
Ensuite, je voudrais effectuer des sommes...
Je voudrais savoir ce que vous pensez de cette méthode.
Ensuite, je voudrais intégrer des sommes pour chaque extraction, quelle serait la meilleure méthode?

Voici ce que cela donne:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
 
Sub ExtractionActif()
 
'Bloc permettant de copier les actifs immobiliers de la feuille Saisie et de les coller dans la feuille Actif
For i = 100 To 107 Step 1
Sheets("Saisie").Select
    If Cells(i, 2).Value <> 0 Then
        actif = Cells(i, 1).Value
        quand = Cells(i, 2).Value
        qui = Cells(i, 3).Value
        montant = Cells(i, 4).Value
            Sheets("Act2").Select
            'créer une nouvelle ligne et coller les données de la variable actif
            Rows(3).Insert
            Cells(3, 1).Select
            ActiveCell.Value = actif
                If qui = "Vous" Then
                ActiveCell.Offset(0, 1).Value = montant
                ElseIf qui = "Conjoint" Then
                ActiveCell.Offset(0, 2).Value = montant
                Else: qui = "Communauté"
                ActiveCell.Offset(0, 3).Value = montant
                End If
    Else
 
    End If
Next i
 
 
'Bloc permettant de copier les comptes courants de la feuille Saisie et de les coller dans la feuille Actif
For i = 49 To 51 Step 1
Sheets("Saisie").Select
    If Cells(i, 1).Value <> 0 Then
        banque = Cells(i, 1).Value
        montant = Cells(i, 3).Value
        qui = Cells(i, 4).Value
            Sheets("Act2").Select
            Rows(3).Insert
            Cells(3, 1).Select
            ActiveCell.Value = banque
                If qui = "Vous" Then
                ActiveCell.Offset(0, 1).Value = montant
                ElseIf qui = "Conjoint" Then
                ActiveCell.Offset(0, 2).Value = montant
                Else: qui = "Communauté"
                ActiveCell.Offset(0, 3).Value = montant
                End If
    Else
 
    End If
Next i
 
End Sub