Vba

Sub es()
 Dim a, x As Long
 Set a = [a1:iv1].Find(What:="   En DevSoc.", LookIn:=xlValues, LookAt:=xlWhole)
 If Not a Is Nothing Then
 x = Cells(Columns(a.Column).Cells.Count, a.Column).End(3).Row
 Cells(x + 1, a.Column) = WorksheetFunction.Sum(Range(Cells(2, a.Column), Cells(x, a.Column)))
 Else
 MsgBox "pas trouve "
 End If
End Sub

Sub es()
Dim j As Long
 For j = 1 To Rows(1).Find("*", , , , , xlPrevious).Column
 If Cells(1, j) = "   En DevSoc." Or Cells(1, j) = "   En DICtrPr" Then _
 Cells(Rows.Count, j).End(3)(2) = Application.Sum(Range(Cells(2, j), _
 Cells(Cells(Rows.Count, j).End(3).Row, j)))
 Next j
End Sub