Merci La puce cela marche voila ce que je devais faire:
procedure TComptes.BitBtn2Click(Sender: TObject);
var
I: Integer;
begin
for i := 0 to table1.IndexFieldCount do
begin
ComboBox1.items.add(table1.fieldbyname('mois').asstring);
Table1.next;
ComboBox1.ItemIndex := 0;
end;
end;
Merci encore

Louis