Donc voici le code :
'ref_base = ligne de référence de sélection de début
'ref_fin = ligne de référence de sélection de fin
'val_spm = mémoire de la valeur de la colonne Code SPM
'i = compteur de ligne
Dim ref_base, ref_fin, val_spm, i As Integer
ref_base = 2
i = 2
Do While ActiveSheet.Cells(ref_base, 1) <> "" And ActiveSheet.Cells(ref_base + 1, 1) <> ""
Do While ActiveSheet.Cells(i, 1).Value = ActiveSheet.Cells(i + 1, 1).Value
i = i + 1
Loop
ref_fin = i
val_spm = ActiveSheet.Cells(i, 1).Value
ActiveSheet.Cells(ref_fin + 1, 1).Select
Selection.EntireRow.Insert
Range(Cells(ref_base, 1), Cells(ref_fin, 1)).Select
Selection.ClearContents
ActiveSheet.Cells(ref_fin + 1, 1).Value = val_spm
'--Mettre le total
'Sélection des cellules de la colonne D (Dref_base
ref_fin)
'Total dans la cellule D(ref_fin+1,4)
ActiveSheet.Cells(ref_fin + 1, 4).Select
-------------------------------------------------------------------
ActiveCell.FormulaR1C1 = "=sum(Cells(ref_base, 4):Cells(ref_fin, 4))"
-------------------------------------------------------------------
------------> c'est donc à ce moment qu'il m'est retourné la valeur #NOM? au lieu du résultat
ref_base = ref_fin + 2
i = ref_fin + 2
Loop
Donc, voili, voilou quoi !