J'ai ce code:
Public Function CDZEman(Compte As String, Cle As Range, Optional mois As String, Optional annee As String) As String
C1 = Right("00000000000000000000" & Compte, 20)
Set CleRange = Cle
cler = WorksheetFunction.Sum(CleRange)
cler = CStr(Format(cler * 100, "0000000000000"))
C2 =...