bonjour Mab
tu peux tester
Sub sommeColonnesConditionnel()
Dim i As Byte
Dim j As Integer, X As Integer
Dim Resultat As Single
For i = 1 To 3 'boucle sur les colonnes
'hypothese que les colonnes ne sont pas toutes de meme longueur
j = Cells(65536, i).End(xlUp).Row 'derniere ligne non vide de chaque colonne
Resultat = 0
For X = 1 To j
'boucle sur toutes les lignes de la colonne pour verifier si les cellules
'sont au format "Gras"
If Cells(X, i).Font.Bold = True Then Resultat = Resultat + Cells(X, i)
Next X
With Cells(X, i)
.Value = Resultat
.Interior.ColorIndex = 6
End With
Next i
End Sub
bon week end
MichelXld