Function DepensesDirectes()
'dans la feuille DépensesFonctionnement"
With Sheets("DépensesFonctionnement")
'pour chaque ligne de 19 à 74
For i = 19 To 74
'si la colonne P contient "OUI" alors
If .Cells(i, "P") = "oui" Then
'on concatene le contenu des colonnes U et V avec les résultats précédents (Liste) et un retour chariot pour plus de lisibilité
liste = liste & Chr(10) & .Cells(i, "U") & " " & .Cells(i, "V")
End If
Next i
End With
'on renvoie le résultat final
DepensesDirectes = liste
End Function