Public Function Ajouter_Colonne()
Dim Initiales As String
Dim Colonne As Integer
Initiales = Sheets("Liste").Range("B1").End(xlDown)
Colonne = Sheets("Projets").Range("A1").End(xlToRight).Offset(0, 1).Column
Sheets("Projets").Range("A1").End(xlToRight).Offset(0, 1) = Initiales
ii = 2
While Not (IsEmpty(Sheets("Projets").Cells(ii, 1)))
Sheets("Projets").Cells(ii, Colonne).Formula = "=SOMME.SI(" & Initiales & "!$A:$A,$A" & ii & "," & Initiales & "!$C:$C)"
ii = ii + 1
Wend
End Function