Dim Par as string
Formule = "=sumifs(txtComptes!L:L,txtComptes!A:A,A:A,txtComptes!B:B," & Chr(34) & "Crédit" & Chr(34) & ")"
Par ="'" & txtComptes & "'" 'ajout de guillemets simples au cas où le compte comporte des espaces
Formule = replace(Formule,txtComptes,Par)
moShSyst.Range("C" & iLigSyst).Formula = Formule